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MODULE menery ZTITLE "DIRECTORY verb dispatch and misc routines’ 
IDENT = ‘'V04-000' 
oo ESSING MODE (EXTERNAL =LONG_ RELATIVE, NONEXTERNAL=WORD_RELATIVE) 
= 


BEGIN 


ROAR RRA AREER AERA REE ERA EEE EEE EEA TEER ATER TE RARE AAAAEAEREREREO REE REE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1°94 BY 
ie DIGITAL EQUIPMENT CORPORATION, MA\ \ARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 

* 

® 

on 

*® 

is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
fs ONLY IN. ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER + 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
i TRANSFERRED. . 
* 

it THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
iw AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
is CORPORATION. . 
® 

* 

* 

® 

® 
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!® DIGITAL ASSUMES NO RESPONS 
tt SOFTWARE ON EQUIPMENT WHIC 


IC 
EN 


BILITY FOR THE USE OR RELIABILITY OF ITS 


IBILITY 
H IS NOT SUPPLIED BY DIGITAL. 


See RARER RARER AREA EERE AERA AEA AAA REEE 


'e¢ 

FACILITY: EXCHANGE - Foreign volume interchange facility 

ABSTRACT: Primary action routines for DIRECTORY verb 

ENVIRONMENT: VAX/VMS User mode 

AUTHOR: CW Hobbs CREATION DATE: 8-July-1982 

MODIFIED BY: 

i VO3-002 CWH3002 CW Hobbs 12-Apr-1984 

i Signal a specific error for an attempt to do a directory : 
i on a remote node, simply saying ‘not permitted for files-11" 
could be confusing. 

i 

ie 

r Include files: 

MACRO $module_name string = ‘exch$dire’ 2%; . The require file needs to know our module name 
REQUIRE *SRC$: TEXCREQ' i Facility-wide require file 


EX 
vO 


EXCHSD IRE DIRECTORY verb dispatch and misc routines 

v04-0 Module table of contents 

; § } ] ZSBTTL ‘Module table of contents’ 

3 8 } ? i } Module table of contents: 

; 60 155 1 FORWARD ROUTINE 

3; (OF 1 $ 1 re_close_output, 

; ¢ 1 1 exch$dire_direcfory, 

; 158 1 exch$dire_get_columns : NOVALUE, 
; 64 159 1 exch$dire_get_width, 

; & 0160 1 dire_open_output, 

; © 0161 1 dire_process_parameters, 

; 6 €6OF 8196 1 exch$dire_put : NOVALUE, 
; 68 1635 1 dire_rtil_directory, 

3; & 0164 1 dire_rti1 _put_item : NOVALUE, 
; 0165 1 dire_rtll_summary 

; oO 3198 1 ; 

; ie 0167 1 

te 0168 1 ! EXCHANGE facility routines 

3;.60 og6 0169 1! 

re 0170 1 EXTERNAL ROUTINE 

; 0171 +1 oxcBscad.cl) get integer, 

BAR «4 O176 1 excn$cmd_match_filename, 

; 01735 «#1 exch$cmd paces, (Leena. 

; 79 0174 1 exch$dosTl_directory, 

; @ 0175 1 exch$moun_Tmplied_mount, 

; ST 0176 1 exch$rt11_expand_Tilename, 

s 0177 1 exch$rt11_dirseg_get, 

; 8 0178 #1 exch$rtacp_next_entry, 

; 0179 1 exch$utit_Tfao_buffer, 

; 0180 1 exch$util_file_error, 

; @ 0181 1 exch$util_namb_release : NOVALUE, 
; § pi8¢ 1 exch$util_rmsb_allocate, 

; 0185 1 exch$util_rmsb_release : NOVALUE, 
; 0184 1 exch$util_rtlictx_allocate, 

; 90 0185 1 exch$util_rtlictx_release : NOVALUE, 
; 91 0186 1 exch$util_vm_allocate_zeroed 

; 0187 1 H 

. at 1 

; | 94 189 1 ! Equated symbols: 

: * oe 0190 1! 

; 0191 1 !LITERAL 

.- 0136 1! H 

; 0195 1 

; b19¢ : Bound declarations: 

: 0196 1 D 

g 01 1 null_string = ZASCID '', 

s Bt : output_str = ZASCID ‘OUTPUT’ 


! Expand the RT11 file name 


5-198 


$ WiSRSE UBLeMRLAtEoNbeae, om 


Close the output file 

Main action routine 

Get number of columns for Listing 
Get output device Line width 

Open output e 

Loop through the parameters 

Put a record to the Listing file 
RT-11 directory 

Put one directory item 

RT=-11 directory summary 


Get a1 integer value 


! Match filename against wildcarded name 
' Pars: a file specification 


Directory command for DOS-11 

Do a default mount 

12? not needed 
Get pointer to RT11 directory segment !?? not needed 
Get pointer to next directory entry 

Perform the $fao service 

Signal RMS error 

Release name block 

Allocate Files-11 control block 

Release Files-11 block 

Allocate RT-11 control block 

Release RT-11 control block 

Allocate virtual memory 


re ee 
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EXCHSDIRE eiaecreny verb dispatch and misc routines Jo=3e= 138% 00:48:38 AX-11 Bliss-32 V4.0-742 
v04- dire_close_output 14-Sep-1984 12:29: EXCHNG.SRCJEXCDIRE.B32;1 
9 0200 1 GLOBAL ROUTINE dire _close_output = ZSBITL ‘dire_close_output' 
: 198 O1 g BEGIN | ttt iba. ies 
: 109 o§ §i** 
3 110 04 i FUNCTIONAL DESCRIPTION: 
; 116 86 | Close the output file described by dire Cdire$a_outfabJ. 
: 114 o 08 i INPUTS: 
: 116 0 10 none 
: 118 0 le { IMPLICIT INPUTS: 
; 130 8 i dire - pointer to work area 
Ss 021 i OUTPUTS: 
gs } 021 ! 
: 158 0519 9 | — 
; 126 0020 { IMPLICIT OUTPUTS: 
; 128 O2e¢ none 
: 186 0994 ; i ROUTINE VALUE: 
: 136 0996 Success or worst error encountered. 
; 134 028 5 i SIDE EFFECTS: 
: 136 0980 g i none 
Beem ie 
: 17? 0338 ; $dbgtrc_prefix ('dire_close_output> '); 
> 141 0235 2 LOCAL 
5 146 oSe6 status 
> 144 $536 : 
3; 145 0239 BIND 
3; 146 0240 dire = exch$a gol Coxcgse dire_work] : $ref_bblock, ! Pointer to work area 
: 147 0241 fab = dire (dire$a_out fab] : $ref_bblock ~ ! Pointer to fab for output file 
ee ay bs 
: 139 0364 $Sblock_ check (2, .dire, dire, 417); 
: 15 rt} ' Close the file 
s 15 4 $ 
3 138 $8 iz NOT (status = $close (fab = .fab)) 
; 138 6 29 exch$util_file_error (exch$_closeout, .status, .fab, .fab Cfab$l_stv]); 
: 138 2¢ Put an RMS structure back on the available queue 
: 139 34 exch$util_rmsb_release (.dire Cdire$a_outrmsb]); 
: 162 56 2 S$debug_print_lit ("file closed"); 


Se Se Se Se Se Fe Se Se Se Se ae Se Se Se ae SH Se FH ee SH ae Be ee 


10 
EXCHSDIRE DIRECTORY verb dispatch and misc routines rhage -1984 00:48: AX-11 Bliss-32 V4.0-742 P 4 
V0 000 dire. close putout 4 14-Sep-19 4 99:35:08 LEXCHNG SRC EXCDIRE.B32;1 _ (3) 


; «(163 7 
; 164 0658 ; RETURN .status; 
165 END; 


-TITLE EXCHSDIRE DIRECTORY verb dispatch and misc rout 
- IDENT \V04-000\ 
-PSECT EXCHSDIRE_PLIT,NOWRT,2 


| 7 

$ 

000 P.AAB: .BLKB : ; 

010E0000 $9009 P.AAA: .LO *, 4720 : | ; 

00090000" 0004 -ADDRESS P.AAB : ; 

00 00 54 55 50 54 55 4F 00008 P.AAD: ASCII \QUTPUT\<0><0> : | : 
01960006 00010 P.AAC: .LONG 17694726 : ; 

00000000* 00014 “ADDRESS P.AAD : | ; 
NULL_STRING= P.AAA | : 

OUTPOT_STR= P.AA | : 

-EXTRN EXCHSCMD_CLI_GET_INTEGER ; 

-EXTRN EXCHSCMD-MATCH_FILENAME | ; 

EXTRN EXCHSCMD-PARSE-F ILESPEC | ; 

EXTRN EXCHSDOST1_DIRECTORY | 3 

EXTRN EXCHSMOUN_ IMPLIED MOUNT | ; 

EXTRN EXCHSRT11_EXPAND_FILENAME 3 

EXTRN EXCHS$RT11-DIRSEG GET : 

EXTRN EXCHSRTACP_NEXT ENTRY : 

EXTRN EXCHSUTIL_FAO BOFFER $ 

EXTRN EXCHSUTIL_FILE_ERROR 3 

EXTRN EXCHSUTIL-NAMB_RELEASE : 

EXTRN EXCHSUTIL_RMSB_ALLOCATE : 

EXTRN EXCHSUTIL_RMSB_RELEASE : 

EXTRN EXCHSUTIL-RT11CTX_ALLOCATE ; 

EXTRN EXCHSUTIL-RT11CTX_RELEASE ; 

EXTRN EXCHSUTIL~VM_ALLOCATE_ZEROED : 

EXTRN EXCHSA_GBC, EXCHSUTIL_BLOCK_CHECK 3 

EXTRN SYSSCLOSE | : 

-PSECT EXCHSDIRE_CODE,NOWRT,2 : 

001¢ 00000 -ENTRY DIRE_CLOSE_ OUTPUT, Save R2,R3,R4 ; 0200 ; 

50 000000006 _ EF 0c C1 00002 ADDL3 #12, EXCHSA_GBL, RO : 0240 : 
3 0 bg O00A MOVL (RO R ; 0241 ; 
024400FE  8F p 0D OVL #3 oft 4, R2 : 0244 : 

51 O1A1 = -8F 0014 MOVZWL #417, RI ; : 
50 53 dO 00019 OVL R3, RO ; ; 
000000006 EF 16 9001¢ JSB EXCHSUTIL BLOCK_CHECK ; ; 

52 20 AS 00 99 MOVL (R3), R2 : 0248 | ; 
52 DD 00026 PUSHL R : ; 

000000006 90 gi F 99 8 CALLS #1, SYSSCLOSE ; : 
4 0 D é MOVL RO, STATUS ; ; 
14 54 €8 000 é BLBS STATUS, 1$ ; | ; 
0c Ag DD PUSHL  12(Re) ; 0250 | ; 

52 DD 8 PUSHL R ; | ; 

54 DD A PUSHL STATUS ; : 

00F81058 8F DD 0003C PUSHL #16257112 ; ; 


a ee eee eee ee } | tied 
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EXCHSDIRE DIRECTORY b dispatch and mi ti 15- -1984 00:48: AX-11 Bliss- 4.0-74 E 
y0s~000 irsleaenien ie yma Rag! ~pcxaetaet 1 7300-1382 99:38:08 EXCHNG SRE EXeDIRE BS241 si 3 Vv 
00000000G_ EF IC AS 43 tg 18: gas a4 gg SCNSUTIL FILE ERROR : 0256 | 
000000006 fF 9 re ef ; CALLS # Fa CNET IL ARSE RELEASE : 
0 4 D 2 MOVL STATUS, R ; 0258 
04 00056 RET : 0259 


; Routine Size: 87 bytes, Routine Base: EXCHS$DIRE_CODE + 0000 
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EXCHNG. SRC EXCDIR E.832;1 


ROUTINE VALUE: 
Success or worst error encountered. 
SIDE EFFECTS: 


CONOULSWN— 


67 60 1 GLOBAL ROUTINE exch$dire_directory = ASBTTL ‘exch$dire_directory' 
68 61 BEGIN 

% e3 5 i” 

4 64 FUNCTIONAL DESCRIPTION: 

7 66 Action routine for the DIRECTORY verb, parses and performs main control functions for DIRECTORY 
i $8 INPUTS: 

i 1G | ele 

3 re ; IMPLICIT INPUTS: 

2 ie ; Command parameters and qualifiers as returned from CLI$xxx routines. 
5s 26 ; OUTPUTS: 

85 28 ; none 

87 80 IMPLICIT OUTPUTS: 

89 gS i none 

90 8 ! 

.] 84 ! 

a 85 ! 

9 86 ! 

9 87 ! 

9 88 ! 

9 89 ! 

a ! 

9 ! 

9 

00 

0 

0 

0 

04 
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+ A directory of files may be displayed 
9 
: ; $dbgtrc_prefix ('dire_directory> '); 
¢ 9 LOCAL 
9 ee 
9 ety 
05 9 
206 9 
ite 0 BIND : 
94 0 dire = exch$a_gbl Cexcg$a_dire_work] : $Sref_bblock ! Pointer to work area 
0 3 , 


If our pointer is null, we need to allocate and initialize the work area 
iF -dire EQL 0 
THEN 

BEGIN 

Get the right sized chunk of memory, conveniently set to nulls 

dire = exch$util_vm_allocate_zeroed (exchblk$s_dire); 

' Set the ident fields 
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$Sblock_init (.dire, dire); 
Set the descriptors up 
$dyn_str_desc_init (dire (dire$q_filename]); 
$dyn_str_desc_init (dire (dire$q_output_file]); 
$dyn_str_desc_init (dire fai rebacoutpute Hite, 
END; 
Get some confidence that our work area is valid 
$Sblock_check (2, .dire, dire, 418); 
Set the last part of the block to nulls 
CHSFILL (0, exchblk$s_dire - dire$k_start_zero, .dire + dire$k_start_zero); 
Get individual boolean qualifiers 


dire Cdiresv_g_all) = cli$present (ZASCID ‘ALL"); 

'\ dire Cdire$v_q_badblocks] = cli$present (ZASCID "BADBLOCKS'); 

dire Cdire$v_q_Blocks) = cli$present (ZASCID 'BLOCKS'); 

dire Cdire$v_q_briefJ = cli$present (ZASCID ‘BRIEF'); 

dire Cdire$v_q_date] = cli$present (ZASCID 'DATE'); 

dire (dire$v_q-deleted] = cli$present (ZASCID "DELETED"); 

dire Ldire$v_q_free = cli$present (ZASCID ‘FREE'); 

dire (dire$v_q_full = cli$present (ZASCID ‘FULL"); 

dire (dire$v-q_octal) = cli$present (ZASCID 'OCTAL'); 

dire Ldire$v_q_owner = cli$present (ZASCID OWNER®) ; 

dire Ldire$v_q_printer] = cli$present (ZASCID ‘PRINTER'); 

dire [dire$v_q_size = cli$present (ZASCID ‘SIZE'); 

dire Cdire$v_q_summary] = cli$present (ZASCID "SUMMARY'); 

: Get individual integer-valued qualifiers, routine signals on errors 
v aon (status = exch$cmd_cli_get_integer (ZASCID ‘COLUMNS’, dire Cdire$l_q_columns])) 


RETURN .status; 
Set any implied flags 


IF .dire Cdire$v_q_fullJ 
THEN 


ere dire$v_q_brief] 
dire Cdire$v_q_blocks]) = dire Cdire$v_q_date] = dire Cdire$v_q_size] 
: Assume output to the SYSSOUTPUT device 


dire Cdire$a_outfab] = -exch$a_gbl poxcese_sysout fab : 
dire (dire$a_outrab]) = .exch$a_gbl Cexcg$a_sysout_rabJ; 


dire bdiresv_a_plocks, = dire Cdire$v_q_date] = dire Cdire$v_q_size) = dire Cdire$v_q_owner] 


Get the output filename if requested 
If (dire Cdire$v_q_output) = cli$present (output_str)) ! /OUTPUT=<filespec> 


dire Cdire$v_q_owner] 
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! /PRINTER 
IF NOT (status = dire_open_output (.dire Cdire$v_q_printer])) ! Open the output file, return on er | 
RETURN .status; | 
| 
| 
| 
| 
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-dire Cdire$v_q_printer] 


Get the Listing width by doing a $getdvi on the output device 

dive CdireSl_list_width] = exch$dire_get_width (.dire Cdire$a_outfabJ); 

Loop through the List of file specifications 
status = dire _Process_parameters (); 

Close the output file if we opened one 

(. dire Cdire$v_q_output] OR .dire Cdire$v_q_printer]) 

ENBEGIN 


stat_2 = dire close_output (); 
i: .Status THEN status = .stat mS 


! Make the output status the worse of process_para and close 


A ae Status; 


-PSECT EXCHSDIRE_PLIT,NOWRT,2 


00 4C 4C 41 Q0018 P.AAF: .ASCII 17650723 5 
010E0003 OO001C P.AAE: .LONG ares 3 
00000000" 00020 -ADDRESS P 3 
00 00 53 4B 43 4F 4C 42 00024 P.AAH: .ASCII igeES 3 
Sag5008§- $8885 PMC: ote 2 
00 00 00 46 45 49 +4 <3 00034 P.AAJ: .ASCII \BRIEF \<0><0><0> : 
aS QOO3C P.AAI: .LONG 3 
00000000" 00040 -ADDRESS P.AAJ 3 
45 54 41 44 00044 P.AAL: .ASCII \DATE\ 3 
BADE OOS Bpee P.AAK ees sha : 
O77e9 0° 0004 3 
00 44 45 54 45 4C 45 44 BS P.AAN “ASCLT WE : 
818 0007 P.AAM : 
0000000" b2k ADDRESS P 3 
45 45 46 060 P.AAP: <ASCII \FR FEN 3 
9} 4443 0064 P.AAO: .LONG 17694724 : 
0000000° 9 ADDRESS P.AAP ; 
4C 4C 46 P.AAR: .ASCII \PULL ; 
S3S58885. BRIE PME: kN eRig2 : 
00 00 00 4C 41 54 435 4F 78 P.AAT: ASCII Wepre 3 
4 $003 P.AAS: .LONG ; 
0000000' -ADDRESS P.AAT : 
00 00 00 52 45 4€ 4F P.AAV: .ASCII \OUNER\ B\<0><0><0> 3 
010E0005 P.AAU: .LONG 1769 : 
| 
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EXCHSDIRE DIRECTORY verb dispatch and misc routines 16-Sep-1984 00:48: AX-11 Bliss-32 V4.0-742 Page 9. 
vrei exchSdire_directory 127808- 1382 09:38:88 EXCHNG.SRCJEXCDIRE.B32;1 . (4) | 
00000000 00094 .ADDRESS P.AAV : 
00 52 45 54 4E 49 3 Q 0098 P.AAX: .ASCII at ttt a : | 
9} 0 QAO P.AAW: .LONG 17694727 ; 
0000 AG »ADDRESS P.AAX : 

45 SA 4 AS P.AAZ: .ASCII \$126) : 
4 004 af P.AAY: .LONG 17694724 3 
0000000' 0008 ADDRESS P.AAZ 3 | 

00 59 52 41 4D 4D 0B4 P.ABB: .ASCII Vguenagy\<0> : 

1 500 pes P.ABA: .LONG 17694727 3 

0000000° 000C ADDRESS P.ABB 5 

00 53 4E 40 55 4C 4F & 00C4 P.ABD: .ASCII YSOL URNS \<0> : 

105000! i489 P.ABC: .LONG 1769472 F 

0000000° 000D -ADDRESS P.ABD é 


-EXTRN EXCH$GQ_DYN_STR_TEMPLATE 
-EXTRN CLISPRESENT 


-PSECT EXCHSDIRE_CODE .NOWRT,2 


Be Be Oe Be Se Be Se Se Se Oe SH Ge SH Se SE BE Se SH Se Se Ge FH Se Se Se Fe Ge Se Ge Geese Be ee Ge HH Se Se SH Se Se Seas Fe Se Se Se Se Se Seas teas te oe Fe ee ee 


03FC 00000 .ENTRY EXCHSDIRE DIRECTORY, Save R2,R3,R4,R5,R6,- : a 
59 000000006 EF 9E 9000 MOVAB EXCHSA_GBL, R9 ; 
58 0000' CF 9E 0000 MOVAB P.AAE : 
57 000000006 00 9€ 00008 MOV CLISPRESENT, R7 : 
52 9 0¢ Ci 0001 ADDL3 #12, EXCHSA.GBL, R2 + 0301 
8 D5 00019 TSTL (Rod + 0307 
47 12 0001B a6 1$ : 
7E 0244 8F 3C 0001D MOVZWL #580, -(SP) + 0313 
000000006 EF 01 FB 00022 CALLS #1, EXCHSUTIL_VM_ALLOCATE_ZEROED ; 
62 50 D0 00029 MOVL RO, (R2) : 
08 Ao 0244 BF 80 d00¢¢ Ovw #580, 8(RO) : 0317 
OA AO 08 , 00032 MNEGB #2, {10(RO) F 
50 62 DO 00036 MOVL (RO), RO + 0321 
53 000000006 EF D0 00039 MOVL -TMPL. R3 : 
60 3 pO 00040 MOVL 3, (RO) : 
51 000000006 ef DO 00043 MOVL TMPL44, R1 : 
04 AO 1 DO 0004A MOVL. 1, 4(RO) : 
50 62 O¢ C1 0004 ADDL3 #12, (R2), RO : 0322 
60 53 DO 0005 MOVL 3, (RO) : 
04 AO 51 00 0005 MOVL R1. 4(RO) F 
50 62 14 €1 00059 ADDL3 #26, (R2), RO + 0323 
60 53 DO 0005p OVL R3, (RO) : 
04 AO 51 DO 00060 MOVL 1. 4(RO) : 
26 2 D6 90064 1$: MOVL (RED Rg : 0329 
2 0244008 F p 7 MOVL #38011134, R2 ; | 
51 O1A F 3¢ 0006 MOVZWL #418, RI : 
50 6 dO 0007 R6, RO F 
000000006 FF 16 00076 JSB EXCHSUTIL_BLOCK CHECK ; 
0228 «BF 00 6E i 00 2¢ ates MOVCS #0, (SP),"#0, #552, 28(R6) > 0333 
52 2¢ Ag 9E $08 OVAB 44(R6), R2 : 0337 | 
58 DD 9089 PUSHL R : | 
67 or FB 88 CALLS #1, CL ISPRESENT : | 
62 01 00 0 F OBE INSV RO. #0, #1, (R2) : | 
10 A& 9F 0009 PUSHAB P.AAG : 0339 | 
67 gi FB 096 CALLS #1, CLISPRESENT ; 
62 01 01 0 FO 00099 INSV RO, #1, #1, (R2) : 
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EXCHSDIRE DIR RY verb dispatch and misc routines b-5e ep-1984 AX-11 Bliss- 4.0-742 Page 11 
Maat aaskbatre _d rectory op- 1382 99: 38: 3 EXCHNG.SRC Eke RE.B 2;1 ° (4) 
FE27 F 17D 6$: CALLS DIRE of LOSE. OUTPUT 8 Oa 
E9 001 BLBC ear) Us. 7 + 0395 
D 1 MOVL Star » STATUS : 
Dd 188 7$: MOVL STATOS, RO : 0398 
04 00188 RET 3; 0399 


; Routine Size: 396 bytes, Routine Base: EXCHSDIRE_CODE + 0057 


D 11 
EXCHSDIRE DIRECTORY verb dispatch and misc routines 16-Sep-1984 00:48: AX-11 Bliss-32 V4.0-742 Page 12) 
507000 exch$dire_get_columns 1e-8ep-19 4 9 3588 EXCHNG.SRCJEXCDIRE .B32s1 . (5) | 

| 

; 308 180 1 GLOBAL ROUTINE exch$dire_get_columns : NOVALUE = ZSBTTL ‘exch$dire_get_columns' ; 
; 309 401 2 BEGIN | : 
> 310 188 ++ ; 
Py 11 04 ! | ‘ 
: \¢ pene FUNCTIONAL DESCRIPTION: : 
; 13 eH Determine the number of columns for the Listing : 
: 316 0408 i INPUTS: | ; 
s opi 409 : | : 
; 318 0410 2! none | : | 
; 319 0411 2! if 
; $f beg ! IMPLICIT INPUTS: 
; 1 041 ; 
; $§ 0414 4 dire block 
s te 0415 ' 
; $e 0416 ! OUTPUTS: 
; 325 0417 2: | 
; 326 0418 : none 
: 37 0419 2 | | 
3 See bes9 2 ! IMPLICIT OUTPUTS: 
; $85 0421 § ‘ 
; 330 Bess ! none 
$s Ba 04 - | 
; $38 0424 2 ! ROUTINE VALUE: 
5 Se 0425 2! 
; 334 0426 ! none 
3 Bee 0427 ! 
: $39 0428 ! SIDE EFFECTS: 
3 Sor 9h) : 
; 338 0430 ! none 
; 4 0431 leo 
; 340 Beas 
; (341 0435 2 S$dbgtrc_prefix ('dire_get_columns> '); 
; $06 0434 2 
; 34 0435 2 REGISTER 
: se 0436 2 cols, 
; 345 0437 override 
: 346 0438 ; 
; 347 0439 
: 348 0440 2 BIND 
: 34 Ree} dire = exch$a_gbl Cexcg$a_dire_work] : $Sref_bblock 
. San 44 
; 352 444 
3 3 heek : Make of copy of the number of columns 
3 399 447 cols = .dire Cdire$l_q_columns); | 
3 «gee 0448 ‘ 
3 3 $286 } Compare Listing width with requested value 
5 59 0451 IF (.cols GTR 0 ) | 
: 360 45 AND . - ’ Loetas 
; ! th (((.cols * .dire CdireSl_item_width]) + ((.cols-1) * dire$k_item_spacing)) GTRU .dire CdireSt_List_widt | 
: re 0455 BEGIN | 
; 364 0456 override = true; 


EXCHSDIRE 
voe~000 


DIRECTORY verb dispatch and misc routines 
exch$dire_get_columns 


Sexch_signal (exch$_toomanycol); 


override = false; 


pa19be 19:09:08 


AX-11 Bliss-32 V4,0-742 
EXCHNG. SRC EXCDIR E.832;1 


If /COLUMNS defaulted or needs to be fixed, compute the number of columns 


if (.cols EQL 0) OR .override 
THEN 
BEGIN 


First guess, just divide Listing width by item width 


cols = 


-dire Cdire$l_list_width] / .dire Cdire$l_item_width); 


Now, include the spacing, and decrement cols until it fits 


WHILE ((.cols * 
DO 


cols = .cols = 1; 
$logic_check (2, (.cols GTRU 0), 108); 
dire Cdire$l_q_columns] = .cols; 
END; 
$debug_print_fao (‘number of columns !UL', .cols); 
RETURN; 
END; 
EXTRN EXCH$_TOOMANYCOL 
EXTRN EXCH$_BADLOGIC 
001C 00000 .ENTRY EXCHSDIRE_GET COLUMNS, Save R2,R3,R4 
50 00000000G_ EF 0c C1 00002 ADDL3 He EXCHSA_GBL, R 
54 60 DO OO00A MOVL (ROS, R4 
52 28 Ad DO 0000D MOVL  40(R4), COLS 
26 15 00011 BLEQ 1$ 
50 52 3% 6OCUK OE 9013 MULL 52(R4), COLS, RO 
51 28 03 > 901 MULL r) robs R1 
FD Al E 0001C¢ MOVAB -3(R1)CRO], RO 
38 AG 50 01 900 1 CMPL RO, 56(R4) 
12 1B 000 3 BLEQU 1$ 
53 1 p0 000 MOVL #1, OVERRIDE 
00000000G 8F DD O002A PUSHL ae XCHS TOOMANY COL 
000000006 00 1 Fe 8 9 CALLS #1, LIBSSIGNAL 
1 BRB 2s 
D4 00039 1$: CLRL OVERRIDE 
p B 2$: TSTL OLS 
9 D BEQL 4 
39 E F BLBC ERRIDE, 7$ 
52 38 AG 34 Ad (C7 4g 3$: DIVL gina). §6(R4), COLS 
5 52 4 Ad C5 00048 48: MULL (R4), COLS, RO 


-dire Cdire$l_item_width]) + ((.cols-1) * dire$k_item_spacing)) GTRU .dire Cdire$l_list_ 


EX! 


fF 11 
EXCHSDIRE DIRECTORY verb dispatch and misc routines 16-Sep-1984 :48: AX-11 Bliss- 0-742 
£55000 exch$dire_get_ columns 1 =308 7 382 99:38:98 EXCHNG. SRC Exe ofr -B32;1 
51 5 4 MULL3 #@ OLS, _R1 
26 FD ants se MOVAB + iris trod. RO 
38 AG 1) 6 CMPL RO, 56(R4) 
4 19 A BLEQU 5 
0 C DECL COLS 
3 11 3 BRB 4$ 
dS 60 5$: TSTL COLS 
13 12 0006 BNEQ 6 
7E 6C BF 9A 00064 MOVZBL #108, -(SP) 
01 DD 00068 PUSHL #1 
00000000G 8F DD O006A PUSHL or BADLOGIC 
000000006 00 03 FB 00070 CALLS , LIB$sTOP 
28 «AG 52 00 00077 6$: MOVL COLS, 40(R4) 
04 00078 7$: RET 


; Routine Size: 124 bytes, Routine Base: EXCHSDIRE_CODE + 01€3 


Be Se Se Se Be Se Se Se Fe Se Se Se Be Fe 


ee  -- -- - - — —_—— . 1 


ROUTINE VALUE: 
width of output Line 
SIDE EFFECTS: 


11 

EXCHSDIRE DIRECTORY verb ¢ispatch and misc routines 18. -Sep-1984 t 99: $8: 33 AX-11 Bliss-32 V4.0-742 Page 15) 
v04 exch$dire_get_widt 14-Sep-1984 12:2 EXCHNG.SRCJEXCDIRE.B32;1 (6) | 
3 338 iB 1 cen ROUTINE exch$dire_get_width (fab : $Sref_bblock) = ZSBTTL ‘exch$dire_get_width' | 
; 99 4 1e4 
; 4 491 
3 ret rh FUNCTIONAL DESCRIPTION: 
: 408 494 Get the Line width of the output device | 
: 405 49 INPUTS: | 
Ps | 
5 4 fab - pointer to a fab with the opened output file 
: 08 IMPLICIT INPUTS: 
: 1 nam block hanging from the fab 
: ig i OUTPUTS: 
: 414 i 
; 415 none | 
3 16 i 
: \? IMPLICIT OUTPUTS: 
: 19 i none 

0 ! 

$f 

i 

38 | 

24 i 

4 i 

é i 

5 i 

le 


nw we ielol aloof eololololeolololelolololo) 
LEPVIV IV LVI LV IUSUSUSUSUSISISI SISSIES 
MMPININM RNIN 3 3 3 2 OP HM OOODOCOOCOCOCOOOOOOO 


PWR ODO NOME WN O OONOUE WN OODNAUNE WN HO OOF WN SO OONO 


=e 


ae ah ek ee ke ae ek el ek et ae ed at et et et ek ed ed el ek 


none 
| 
| 


$dbgtrc_prefix ('dire_get_width> '); 
) LOCAL 
5 dev_item : VECTOR (4, LONG], 
v5 dev~name : VECTOR C2. LONG], 
05 status, 
05 width 
: 6 b26 " 
3 (OW 05 BIND 
3 | 23 nam = .fab Cfab$l_nam] : $bblock ! Nam block for this fab 
64 53 ; 
44 53 
aaa O23 Initialize the item list for the $GETDVI 
: 66 $33 ZIF switch variant GEQ 3 XTHEN width = 0 2FI ! Suppress uninit reference message while debugging | 
: 44 053 dev_item (0) = (dvi$_devbufsiz*16 OR 4 ' Device buffer size, output length 4 
3 448 053 dev_item = width; ' Address of opto buffer 
3: 449 54 dev_item = 0; ' No returned engt | 
3 rts ‘* dev_item = 0; ! End of GETDVI item List 
; 438 054 ' Pull the device name from the name block 
: 45 054 : 


<m 
ro 


8. 4a 
EXCHSD RE DIRECTORY verb dispatch and misc routines -1984 AX-11 Bliss-32 V4.0-742 p 16 | 
v04-0 $00 exch$dire_get_ wid th ars ri 99: 38 33 EXCHNG.SRCJEXCDIRE.B32;1 ~~ (6) | 
> 454 45 2 dev_name [0] = .nam [nam$b_de ! Get the size | : 
; 43s 546 dev_name £9} = ,nam Cnam$l “dev): i “and the. oddress ; 
: 43? se6 $debug_print_fao (‘Attempting GETDVI on !AS', dev_name); | 
: 459 0550 2 ! Get the device information | ; 
; 460 0551 ! 3 
3; 461 9226 IF NOT (status = Sgetdviw (efn=0, devnam=dev_name, itmlst=dev_item)) ; 
; re 55 THEN 3 
3 ret beee Sexch_signal_stop (.status); ; 
: red 8238 } If the output is a disk, the buffer will show up as 512. Reduce it to 132 ; 
: 467 0558 2 IF .width EQL 512 : 
; 468 0559 3 
: 469 0560 width = 132; 3 
; 470 0561 : 
; rts 8266 $debug_print_fao ("Device width is !UL', .width); : 
: 47 0564 2 RETURN .width : 
; 474 0565 . 3 
> INFO#250 L1:0558 | : 
; Referenced LOCAL symbol WIDTH is probably not initialized : 
| 
-EXTRN SYSSGETDVIW, LIBSSTOP | : 
0000 00000 .ENTRY EXCHSDIRE_GET_WIDTH, Save nothing : 0488 | ; 
5E 1c C2 Hong SUBL2 +4 el SP : 3 
50 04 aC 00 0000 MOVL 7. 3; 0531 3 
50 28 Aad D0 00009 MOVL Ocho) 3 : 
OC AE 00080004 8F DO 0000D MOVL i504 92. "Dey ITEM ; 0538 ; 
10 AE 6E 9E 00015 MOVAB WIDTH ITEM+4 : 0539 : 
14 AE 7C 00019 CLRQ DEV TtEMeB- : 0540 ; 
04 AE 39 AO 9A OOOIC MOVZBL 57(RO), DEV_NAME : 0545 3 
08 AE 44 AO b0 oo5e OVL 68(RO), DEV “NAME+4 ; 0546 é 
7E 7C 06026 CLRQ -(SP) : 0552 3 
7E 7C 00028 CLRQ -(SP) 3 Z 
1€ AE 9F QO02A PUSHAB DEV_ITEM 3 : 
18 AE 9F 0002D PUSHAB DEV_NAME 3 : 
7E 7C Bee 0 CLRQ - (SB) 3 3 
000000006 00 0 FB 0032 CALLS #8, SYSS$GETDVIW : 3 
OA 20 E 99 9 LBS STATUS, 1$ : : 
DD C PUSHL STATUS 3 0554 | ; 
000000006 00 01 FB 000 3 CALLS #1, LIBSSTOP : 3 
04 Oba RET 3 3 
00000200 _ =s BFF 6— 01 8 46 1$ CMPL WIDTH, #512 ; 0558 J 
ee 12 00040 BNEQ 2$ ; ; 
f 84 F 9A O004F MOVZBL #132, WIDTH : 0560 3 
5 6— 00 itd 23: OVL WIDTH, RO : 0564 3 
04 00056 ET ; 0565 : 
; Routine Size: 87 bytes, Routine Base: EXCHSDIRE_CODE + 025F ; 


EXCHSD IRE 
v04-00 


eee Se Oe Se Ge Oe Se Oe Oe Os Se Oe Se Be SH SH Se Se Se Ge Ge Se Ss Ge SH Ge Be Ge Oe Ss Ss oe Ge FH SH SESH SH SH Se Oe SH Ss OH Oe OHSS OH ey BESET TH Sees ee 


500 


ooo 
wn 


DUPED DVD PV DPV PUPP PUPP PVPVAV STATS AAAS AAAI 


WINIAROPOROPOPOPO NOR nuh) 2 2 OOOO 


$Sblock_check (2, .dire, dire, 419); 
Get the output filename, it can be null and we don't care 


SoOooooo 
PDAAAAO 


RORY 2 


cli$get_value (output_str, outdesc); 
$debug_print_fao (‘original output file name is ""!AS'", outdesc); 
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DIRECTORY verb dispatch and misc routines 1b-Sep-19 4 00:48: AX-11 Bliss-32 V4.0-742 Page 17 
dire_open_output 14-Sep-1984 $9:59503 LEXCHNG.SRe EXCDIRE.B32;1 ’ (7), 

268 * GLOBAL ROUTINE dire_open_output (spool_output) = ZSBITL ‘dire_open_output' | 

, Ss 

2 ! 

esr FUNCTIONAL DESCRIPTION: 
b206 Open the output file described on the /OUTPUT qualifier. Memory is allocated for RMS data structure. 
037% INPUTS: 
g28 ; spool_output - True if the file should be spooled and deleted 
0876 i IMPLICIT INPUTS: 
bees Command qualifier value as returned from CLI$xxx routines. 
0388 ; OUTPUTS: 
0584 i none 
0585 : 
tt) IMPLICIT OUTPUTS: | 
0588 i dire Cdire$a_outfab] - a module-wide pointer to the fab which has the opened output file | 
$434 2 dire Cdire$a_outrab] - a module-wide pointer to the rab which has the connected output stream 
0991 ; ROUTINE VALUE: 
0398 § true, or error code if one occurred 
0995 2 SIDE EFFECTS: | 
0997 ; Memory is allocated, a file is opened | 
0599 2° | 
Beno $dbgtrc_prefix ('dire_open_output> '); 
060 LOCAL 
0 B status 
0605 : | 
0606 ¢ BIND | 
060 dire = ezchtp gol Cexcg$a qive_werks : Sref_bblock, ! Pointer to work area 
0608 fab = dire (dire$a_out fab : : $ref_Bblock, |! Pointer to fab for output file 

09 outdesc = dire [dire$q outgut.tte2 : goosek ' Descriptor for name of output file 

10 rab = dire C(dire$a_oufrab : $ref_bblock, | Pointer to rab for output file 
rmsb = dire (dire$a_outrmsb] : $ref_bblock ! Pointer to SRMSB for output file 


AOonw 
MO OONOuUswn— 


oo 


! Get a pointer to the RMS structures for the output file 
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EXCHSDIRE DIRECTORY verb dispatch and misc routines 1b-Se -1984 AX-11 Bliss-32 V4.0-742 Page 18 
105-000 dire_open_output : 14- Sep- 1984 99: 38; 33 EXCHNG. SRC EXCDIRE.B32;1 . (7) 
; 3 623 i ; 
; 5 | s 2 rmsb = exch$util_rmsb_allocate (); : 
3 H 8 Set the FAB and RAB pointers for the Listing file to what we are opening | ; 
; 8 06 8 fab = .rmsb (rmsb$a_fab); ; 
3 is 3 rab = .rmsb [rmsb$a_rabJ; ‘ 
; 341 Oe 1 ! Initialize the RMS structures ‘ 
; ers 6 ¢ / ; 
; 54 P 06 $fab_init ( : 
> 544 P 0634 FAB = .rmsb Crmsb$a_ f ! Output file FAB ; 
; 545 P 0635 DNA = UPLIT BYTE Cex ehoIRE. LIS"), i “Default name address : 
; 278 P 06 $ DNS = ! Default name size ‘ 
; 54 P 06 FNA = .outdesc Cdsc$a_pointer], ! Set name addr ‘ 
; 548 P 0638 FNS = peutdess aaeee, ength], ! Set name size ‘ 
; 549 P 0639 FOP = ! Sequential only ° 
: 550 P 0640 MRS = . ! Maximum record. size ‘ 
; 551 P 0641 RAT = CR, ! Carriage pesurn record attribute ‘ 
; 22¢ 064 NAM = .rmsb Crmsb$a_nam)); ! Name block ‘ 
; 55 P 064 Srab_init ( : 
; 554 P 0644 RAB = ,rmsb Crmsb$a_rab], ! Output file RAB ‘ 
; 555 P 0645 MBF = : ti-buffer count ‘ 
: 556 P 0646 RAC = SEQ, | Sequential only : 
3 Dor P 0647 ROP = WBH, : te behind ‘ 
; 558 0648 FAB = .rmsb Crmsb$a_fab]); : FAB B addr ‘ 
s poF P 0649 Snam_init ( ‘ 
: 560 P 0650 NAM = .rmsb Ermsb$a_nam) ! File name block ; 
3 36) P 0651 RSA = .rmsb Crmsb$a_rsbuf], ! Result name addr ; 
3 206 P bees RSS = nam$c_maxrss ! Result name size : 
; 3 P 065 ESA = .rmsb-Crmsb$a_esbuf), ! Expanded name addr : 
3 268 beee 3 ESS = nam$c_maxrss); ! Expanded name size : 
3 368 9838 : If the file is to be spooled, then set some more bits in the fab (Delete,Name block,Spool,Sequential only) : 
; 568 0658 IF _.spool_output ‘ 
; 569 0659 T : 
3 2/0 peed fab Cfab$l_fop) = (fab$Sm_dit OR fab$m_nam OR fab$m_spl OR fab$m_sqo); : 
3 276 Ree Create and connect to the output file, free memory if any errors : 
; 574 0664 IF NOT (status = $create (fab = .fab)) : 
3; |f5 0665 THEN : 
; 278 Be66 BEGIN : 
s $7 6 exch$util_file_error (exch$ sppeneut. setotus, » -fab, .fab Cfab$l_stvJ); : 
; 978 668 exch$Sutil_rmsb_release (.rmsb : Free the RMS structure | : 
: 144 i Ae exch$_openout; : 
; «581 671 if NOT (status = Sconnect (rab = .rab)) ; 
; 286 i THEN : 
; 3B ? BEGIN ; 
; 584 0674 exch$util_file_error fouchs geponeut. -Status, -fab, .rab Crab$l_stv]); : 
: fee 75 exch$util“rmsb_release (.rmsb ! Free the RMS structure | 3 
: 56 ore RETURN exch$_openout; : 
7; 7 END; | ; 
; 588 O78 
; 589 7 BEGIN | 

| 

| 
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EXCHSDIRE DIRECTORY verb dispatch and misc routines 16-3ep-1984 248: AX-11 Bliss-32 V4.0-742 Page 19° 
057000 dirs neon oreen r oosep- 1984 99335508 EXCHNG.SRCJEXCDIRE .B32; 1 . | 
H o30 680 BIND 3 
; 591 681 nam = ,rmsb Censb$a anand i $bbloc ; 
3 236 ? ¢ me $trace_print_fao (‘output f le name ape «nam Cnam$b_rsl], .nam Cnam$l_rsal); : 
> 594 684 | : 
; 595 685 RETURN true; : 
; 596 686 1 END; : 
.PSECT EXCHSDIRE_PLIT,NOWRT,2 ; 
53 49 4C 2€ 45 52 49 44 48 43 58 45 000D4 P.ABE: .ASCII \EXCHDIRE.LIS\ : | : 
.EXTRN CLISGET VALUE, SYSSCREATE : 
-EXTRN SYSSCONREC ‘ 
‘ 
.PSECT EXCHSDIRE_CODE,NOWRT,2 ; 
OFFC 00000 ENTRY DIRE OPEN. OUTPUT, Save R2,R3,R4,R5,R6,R7,- ; 0566 : 
53 000000006 EF 0c 1 00002 ADDL3 #12, EXCHEA GBL, R3 + 0607 : 
5B 63 20 C1 OOO0A ADDL3 #32, (R3), R11 : 0608 ; 
SA 63 0c C1 O000E ADDL3 #12, (R3), R10 + 0609 F 
7E 63 24 C1 0001 ADDL3 #36, (R3), -(SP) + 0610 : 
54 63 1¢ C1 00016 ADDL3 #8 (R3), R4 + 0611 : 
52 0244008 E 8F bo OO001A OVL #38011134, R2 > 0614 : 
51 O1A3. BFE 3C.:«00021 MOVZWL #419, R1 ; : 
50 63 D0 00026 OVL (R3), RO : : 
000000006 EF 16 00029 JSB EXCHSUTIL_BLOCK_CHECK ; : 
A DD 0002F PUSHL R10 : 0618 : 
0000" CF 9F 900 1 PUSHAB OUTPUT STR : ; 
000000006 00 02 FB 0035 CALLS #2, CLYSGE F ; 
000000006 EF FB 000 § CALLS #0, EXCHSUTIL_RMSB_ALLOCATE 3 0624 ; 
64 50 DO 0004 MOVL RO. (R4) : : 
59 64 D0 00046 MOVL (Ra), RO : 0628 ; 
56 10 Ad dO 99049 MOVL  16(R9), R6 : ; 
68 56 DO 0004D MOVL 6, (R11) : : 
58 14 A DO 00050 MOVL  20(R9), RB : 0629 : 
00 BE 58 DO 00054 MOVL 8, a0(SP) : ; 
0050 8F 00 6E 00 2C 00058 MOVES #0, (SP), #0, #80, (R6) : 0642 | ; 
66 5003 8F B0 00060 MOVW #20483 (R6) : : 
04 A6 01000040 8F p0 0065 MOVL  #16777280, 4(R6) : : 
16 A6 2 0 $0 MOVB ae 22(R65 : : 
1E AG 0203 F 80 0071 mOoVw #5414, 30(R6) ; | 3 
57 18 Ad DO 00077 MOVL  24(R9), R7 ; ; 
8 Ab 57 DO 0007B MOVL 7, 40(R6) ; : 
C Ab 04 AA b0 007F MOVL 4(R10), 44(R6) ; | ; 
0 Ab 0000" CF : 84 MOVAB P ABE. 48(R6) ; : 
4 Ab A 9 A MOVB (R10). 52(R6) ; | : 
5 Ab C 90 0008 MOV Hg 53(R6) : : 
36 AG 84 BF 38 9 mOVZBU #132, 54(R6) ; : 
0044 28F 00 6E 0 C 7 OV #0, (SP), #0, #68, (RB) : 0648 3 
68 4401 rf go oF MOVW #17409, (RB) : | ; 
04 As 0400 BF 3C OO0A4 MOVZWL #1024, 4(RB) ; | ; 
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EXCHSDIRE DIRECTORY verb dispatch and misc routines 16-Sep-1984 00:48: AX-11 Bliss-32 V4.0-742 Page 21 
F070 flea “process, parameters 14- =8ep -1984 19 335:08 EXCHNG.SRCJEXCDIRE.B32;1 ’ B) 
98 687 1 GLOBAL ROUTINE dire_process_parameters = ZSBTTL ‘dire_process_parameters' 
235 e Hf BEGIN = -P i 
+494 '+¢ 
601 ! 
03) FUNCTIONAL DESCRIPTION: 
04 069 ! Process the List of directory parameters. 
605 0694 ! : 
06 0695 ' INPUTS: 
7 069: ! 
608 069 ! none 
3 69 ! 
610 69 ' IMPLICIT INPUTS: 
611 0700 ! 
oi¢ 4 Command qualifier value as returned from CLI$xxx routines. 
614 070 ' OUTPUTS: 
615 0704 ! 
616 0705 ! none 
617 06 ! 
618 0 ! IMPLICIT OUTPUTS: 
619 0 ! 
620 0 ! none 
621 1 ! 
622 1 ' ROUTINE VALUE: 
623 1 ! 
624 1 ! Success or worst error encountered. 
625 1 ! 
6 1 ' 
7 1 ! 
8 ! 
4 ! 
0 
1 
2 
3 
4 
5 


Sblock_ check (2, .dire, dire, 420); 
status = $severe_stat_copy (exch$_badlogic); ! If no parameter then we have a problem 


Be Se Se Oe Se Be BeBe Se Ge Ge Ge Se Ge Se Se Se Se Fe Se Ge Se Ge Ge Se Se Ge Ge Ge Se Se Se Se Se Ge Se oe FHS SHS Se Se Se Oe Be Se Se Se ee eeee 


0 
0707 
0708 
0709 
0710 
4 1 
O71 
0714 
62 0715 
62 0716 
62 0717 none 
62 0718 “> 
63 0719 
63 s $9 $dbgtrc_prefix ('dire_process_parameters> '); 
63 0 $$ LOCAL 
63 072 namb : $ref_bblock, 
63 0724 volb $Sref—bblock, 
636 0725 namb_head : $ref_bblock, 
637 0726 namb_tail : $ref_bblock, 
638 0727 ormat, 
639 0728 status 
0 0729 ; 
0730 
ong 0731 BIND 
64 O7 36 dire = exch$a gol Cexcg$a_dire_work] : $ref_bblock, ! Pointer to w 
ot) Boz fab = dire (dire$a_outfab) : $ref~ _bblock ! Pointer to = Pa cutenl file 
0735 
O736 
073 
0738 


| 
SIDE EFFECTS: 
| 
| 
| 
| 
| 


] 
EXCHSDIRE DIRECTORY verb dispatch and misc routines hese -1984 AX-11 Bi ies =32 V4.0-742 Page 22) 
f0s~000 aire “process parameters 14- Sep- 1984 99: 38: a3 EXCHNG. SRC EXCDIRE.832;1 . 5 
; $3) 138 } Get the work List of nambs by reading all filename parameters and placing the items in a List | 
: 638 oe) strscopy x dx (dire Cdire$q_default_namej, ZASCID ‘*.*'); ! Init sticky name | 
; nam 
: O22 ares LIF Switch. variant GEQ 3 ZTHEN mamb_tail = 0; %FI ! Suppress uninit reference message while debugging | 
3 637 oF 12? The following loops do not clean up nambs when they see an error = should be cleaned up 
: 659 Ore? 5 WHILE 1 
; 660 0748 dO 
; 661 749 BEGIN 
; 666 £20 
: $97 Be) Fetch the filename and a pointer to a namb 
: 665 o78§ status = exch$cmd_parse_filespec (XASCID 'FILENAME’, dire [dire$q_default_name], 0, dire Cdire$q_filenam 
; 666 0754 IF .status EQL 0” 
3; 667 0755 
; 668 0756 -exch$a_gbl Cexcg$v_control_c] 
; 669 0757 
; 670 0758 EXITLOOP; ! No more files in the List 
s Or) 0759 IF NOT .status 
s 667, 0760 THEN 
; 67 0761 $exch_signal_ return (exch$ parseerr, 1,,, dire Cdire$q_ filename], .status); 
3 or Bree 3 $debug_print_fao (‘input parameter is "!AS'", dire Cdire$Sq_filename)); | 
; 676 boee ; If the device is not mounted, then perform an implied mount | 
° . i 
; 678 0766 ; IF .namb Cnamb$a_assoc_volb] EQ. 0 
; 679 0767 D 
; 680 0768 5 he 
; 681 0769 5 BIND 
; 682 0770 5 dev = namb Cnamb$l_fabdev] : $bbloc 
: 683 0771 6 .dev Cdev$v_for] OR TNOT (.dev Cdev$v Rb t))) 
> 684 0772 4 END) 
; 685 0773 3 
; 686 0774 4 IF NOT (status = exch$moun_implied_mount (.namb)) 
; 687 0775 ; 
; 688 0776 RETURN .status; 
3; 689 0777 3 
; ony 144 3 ; Now make sure that we can do a directory of this volume type | 
: 692 0780 ; volb = .namb Cnamb$a_assoc_volb]; b 
; 227 42 IF vob NEQ 0 ! If the volb is there, then the interesting format | 
; +44 ares gg Termat = .volb Cvolb$b_vol_format) ! is that of the volb. Otherwise, it | 
; oth 4433 format = .namb Cnamb$b_vol_format); ! is that of the namb. | 
; 344 Ore? CASE .format FROM volb$k_vfmt_lobound TO volb$k_vfmt_hibound OF | 
: 701 789 Cvolb$k_vfmt_filesi1) : 
; 70 790 4 BEGIN | 
: 70 791 4 LOCA | | 
: 704 792 4 tet 
; 705 793 4 IF need namb$v explicit_node] 
3 106 0794 4 THEN 
3; 70 0795 5 BEGIN 
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RECTORY verb dispatch and misc routines 1e-Se 1984 00:48: AX=-11 Bliss-32 V4.0-742 P 
re_ process. parameters 2 132800=13be 99:39:08 t ¢ C 32 “int R 


EXCHNG.SRCJEXCDIRE.B32;1 
errstat = exch$_noremote; 
$Sexch_signal (.errstat, 1, dire Cdire$q_filename)); 


E 

BEGIN 

errstat = exch$_opnotperf11; 

$Sexch_signal (.errstat, 1, namb Cnamb$q_device]); 


exch$util_namb_release (.namb); ! Release the bad namb 
ag -namb_head NEQ 0 ! Release any other nambs 
BEGIN 
REGISTER 
temp; 
temp = .namb_head; ! Save current namb 
namb_head = .namb_head Cnamb$a_next]; ! Advance to next namb 
exchSutil_namb_release (.temp); ! Release the saved namb 


END; 
RETURN .errstat; 
END; 
CINRANGE) : : 
Cvolb$k_vfmt_invalid, OUTRANGE] : 
$Slogic_check (0, (false), 239); 
TES; 
We should now have a valid volb, but we still should check 
$block_check (2, .volb, volb, 421); 
Now copy the full name to the default name for proper stickiness 


! These we can do 


str$copy_dx (dire Cdire$q_default_name], namb Cnamb$q_ fullname); 
Add this namb to the tail of the work List 

iF -namb_head EQL 0 

THEN 


BEGIN 

namb_head = .namb; 

namb_tail = .namb; 

BEGIN ° : 

namb_tail Cnamb$a_next] = .namb; ! Ignore uninit reference message on this assignment 


pome. cat = .mamb; 


END; 


Bee Oe Be Se Oe Be Oe Oe Oe Be Be FH Se FH Se SH Ss Se BH He SH He SH Se SHOE SH Oe Be OF ws Oe Oe Oe TH Se OH Oe Os Oe Se SESH SH Os Oe SHOE HSH SHS OH Beas es 


Now release all the nambs hanging off this volb 


namb = .volb Cvolb$a_namb_head); 
ents enamb NEQ 0 


] 


DIRECTORY verb dispatch and misc routines 1.48 Sep-1984 AX-11 Bliss-32 V4.0-742 Page 
dire_process_parameters 14- = 8ep-1984 99: $8: 33 EXCHNG.SRCJEXCDIRE.B32;1 bs 183 | 
844 ! Now print the volumes. We collect nambs for a given volume by chaining them from the volb. We then eral 
Bt? volume. Repeat until the work List is done. | 
OBeS WHILE .namb_head NEQ 0 | 
tk dO 
84 BEGIN 
0850 
p823 ; Pull the first namb from the work List | 
nee hea = .namb_h ! Grab a pointer to it 
Seed namb_head = near Cnamb$a_next); ! and remove it from the work list 
0856 Get the volb for this first namb | 
0858 said = .namb Cnamb$a_assoc_volb]; ' The namb has a pointer to its volb | 
0859 volb Cvolb$a_ ann i headj = ‘namb; ! and now the volb can find the namb 
0860 namb_tail = snamb; ! Tail of the chain on this volb now 
ee namb_tail Ensabba. next] = 0; ! End of the chain 
Oss ; Now, chain any additional nambs which reference this same volb, onto this volb | 
0865 3 WHILE 1 ! This could have been coded a 
0866 dO ! WHILE ((.namb_head NEQ 0) A AND 
0867 4 BEGIN (.namb_head Cnamb$a_assoc_volb] EQL .volb)) " | 
0868 4 IF_ .namb_head EQL 0 ' except that we must control the order of the tests 
0869 4 THEN 
0870 4 EXITLOOP; 
0871 4 IF .namb_ head Cnamb$a_assoc_volb] NEQ .volb | 
0872 4 EN 
0873 4 EXITLOOP; 
0874 4 
Oaee ? } This namb is for the same volume, add it to the end of the chain 
0877 4 a. = .mamb_head; ! Remove the namb from the work List 
0878 4 namb_head =  namb Cnamb$a_next); 
0879 4 namb_tail Cnamb$a_next] = .namb; ! Add it to the tail of the chain hanging from the volb 
0880 4 namb_tail = .namb; 
0881 4 namb_tail Cnamb$a_ next) = 0; ' It is the end of the chain 
0882 3 END;~ 
088 ; 
Oare Now print the directory 
pee CASE -volb Cvolb$b_vol_format] FROM volb$k_vfmt_lobound TO volb$k_vfmt_hibound OF | 
He vol b$k_vfmt_dos11) : status = exch$dos11_directory (. volb); 
89 volb$k_vfmt_rtl1 : status = dire_rtll_directory (.volb); 
e\ volb$k_ vint= rtmt : $exch “signal Stop Texch$ -ngt implement) ; 
OUTRANGE , INRANGE : Slogit_check"(0, (false)? 240); 
4 
4 
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EXCHSDIRE DIRECTORY verb dispatch and misc routi 16-Sep-1984 00:48: AX=11 Bliss-32 v4.0- 
VOs~000 a1 sseparaneters nt OUr Mes gp = 1984 12:09:03 OSRCSERCDIRE 8535 Page 48) voe 


re_process_parameters 4 EXCHNG.SRCJEXCDIRE.B32;1 


0901 4 temp; 
& temp = .namb; 
4 namb_ = ,namb Cnamb$a_next); 
& puchout st pene rerense (.temp); 


| 
5 } | 
; END; | 
3 

| 


folelelelelelelala! 
- woooonooov0ono 


RETURN .status; 
1 END; 


L1:0839 
symbol NAMB_TAIL is probably not initialized 


250 
renced LOCA 


.PSECT EXCHSDIRE_PLIT,NOWRT,2 


00 2A 2E 2A OO0EO P.ABG: .ASCII \#.*\<0> P 
010E0003 OO0E4 P.ABF: .LONG 17694723 : 
00090000" 000E8 “ADDRESS P.ABG F 
45 4D 41 GE 45 4C 49 46 OOOEC P.ABI: ‘ASCII  \FILENAME\ : 
010E0008 OOOF4 P.ABH: .LONG 17694728 : 
00000000' 000F8 “ADDRESS P.ABI ; 
.EXTRN STRSCOPY_DX, EXCH$_PARSEERR 
«EXTRN EXCHS_NOREMOTE, EXCHS_OPNOTPERF 11 
-PSECT EXCHSDIRE_CODE,NOWRT,2 
OFFC 00000 .ENTRY DIRE_PROCESS PARAMETERS, Save R2,R3,R4,R5,- ; 0687 
R6,R7,RB,R9-R10,R11 : 
5B 000000006 8F D0 00002 MOVL. #EXCH$_BADLOGIC., R11 : 
SE 04 C2 00009 SUBL2 #4 : 
58 000000006 EF Oc C1 0000C ADDL He EXCHSA GBL, R8 : 0732 
2 024400FE BF BO 00014 MOVL #38011134, R2 : 0736 
51 01A4 «= BF_Es3C:«0001B MOVZWL #420, R1 : 
50 68 00 00020 MOVL (RB). RO : 
000000006 EF 16 00023 JSB EXCH$UTIL BLOCK. CHECK : 
50 5B DO 00029 MOVL R11, STATOS : 0738 
50 03 00 04 FO 0002C INSV #4, #0, #3, STATUS2 : 
59 0 dO 000 1 MOVL = STATUS2, STATUS F 
0000" CF 9F 00034 PUSHAB P. : 0741 
57 68 14 C1 00038 ADDL3 #20, (R8), R7 : 
7 DD 005¢ PUSHL : 
000000006 00 2 FB E CALLS #2, STRSCOPY_DX : 
6 D4 0004 CLRL NAMB_HEAD : 0742 
5 DD 00047 1$: PUSHL § : 075 
: DD 00049 PUSHL (RB) : 
g D4 00048 CLRL. = (SP) : 
5 BD 9040 PUSHL ; 
0000' CF 9F O004F PUSHAB P.ABH : 
000000006 Ef 5 FB 00053 CALLS #5, EXCHSCMD_PARSE_FILESPEC : 
9 : p 5A MOVL RO. STATUS : 
D BNEQ 3$ : 0754 
00EB 31 0005F a8: BRW 19$ : 
F6 000000006 FF Es 062 $: BLBS § @EXCHSA_GBL, 2$ : 0756 
19 59 E8 0006 BLBS STATUS, ~4$ : 0759 
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EXCHSDIRE DIRECTORY verb dispatch and misc routines 16. -Sep-1984 AX-11 Bi ist -32 v4.0-742 P 
v04-0 dire_process_parameters 14- ~Sep- 1984 13; 35: 03 EXCHNG. SRC EXCDIRE.B32;1 29e 155. 
52 000000006 8 D0 $ OVL § #EXCHS_PARSEERR, TEMP : 0761. 
9 DD PUSHL STATUS : 
8 DD 0007 PUSHL ) : 
1 DD 0007 PUSHL : 
2 DD 0 79 PUSHL TEMP : | 
000000006 00 04 FB 0007 CALLS #4, LIBSSIGNAL : 
54 00FF BO 60 f 4$ ECVE 138 Rd + 0766. 
7% «AG bs 66 8 TSTL =: 116 (RA) : 
1B 1 0088 BNEQ : 
5 6B A& €E8 0008D BLBS i 7(R4), 5$ : 0771 
12 6A AG 95 £ 9091 BBS , 106(R4), 6$ : 
4 0D 36 5$ PUSHL ni + 0774 
000000006 EF g1 FB 0009 CALLS + EXCHSMOUN IMPLIED_MOUNT : 
59 0 DO 0009F MOVL 4 TUS : 
03 39 8 O00A2 BLBS TATU 5s. 88 : 
0138 31 OO0A BRW 1$ : 
55 74 AG b9 O00A8 6$ MOVL 116(R4), VOLB : 0780 
06 13 OOOAC BEQL 7$ : 0781 
SA 58 36AS (OA OOOAE MOVZBL 88(VOLB), FORMAT + 0783 
04 11 0008 RB 8S : 
SA 7A AG 9A 00084 7S: MOVZBL 122(R4), FORMAT + 0785 
03 00 5A CF 00088 8$: ASEL FORMAT, #0, #3 + 0787 
005A 0019 005A 0008 000BC 9$: .WORD 10$-9$,- : 
16$-9$,- : 
11$-9$.- : 
16$-9$ ; 
7E EF 8F 9A 000C4 10$ MOVZBL #239, -(SP) : 0818 
01 DD 000C8 PUSHL #71 : 
5B DD OOOCA PUSHL R11 : 
000000006 00 03 FB O000CC CALLS #3, LIBS$STOP : 
41 11 00003 BRB 16$ ; 
0B 6C AG 06 €1 00005 11$: BBC #6, 108(R4), 12$ : 0793 
52 000000006 8F DO OO0DA MOVL § #EXCH$_NOREMOTE, ERRSTAT : 0796 
68 DD 000E1 PUSHL (RB) : 0797 
OA 11 OO00E3 BRB 13$ : 
52 000000006 8F DO OOE5 12$: MOVL § #EXCHS_OPNOTPERF11, ERRSTAT : 0801 
40 A& 9F OODEC PUSHAB 64(R4) : 0802 
01 DD OOOEF 13$: PUSHL nl : 
32 DD OO0F1 PUSHL ERRSTAT : 
000000006 00 g FB S008 3 CALLS #3, ST TBSSIGNAL : 
4 DD OOOFA PUSHL R4 : 0804 
000000006 EF 01 FB OOOFC 14$: CALLS #1, EXCHSUTIL_NAMB_RELEASE : 
56 D 019 TSTL AMB_HEAD : 0805 
08 1 1 BEQL : 
50 6 DO 00107 MOVL NAMB_HEAD, TEMP 3 0810 | 
56 70 A6 DO 0019A MOVL 112(RAMB_HEAD), NAMB_HEAD : 0811 
50 DD 10 PUSHL TEMP : 0812 
FA 11 0011 RB 14$ ; 
50 2 0 ai8 15$: MOVL ERRSTAT, RO > 0814 
52 04180073 BF DO 00116 168: MOVL  4u8878579, R2 : 0823 | 
1 01A5 BF 3C 0011 MOVZWL #421, R1 ; 
5 00 001 OVL OLB, RO ; | 
00000000 EF 16 001 JSB EXCHEUTIL BLOCK CHECK ; 
1 AG 9F 00128 PUSHAB 24(R4) > 0827 | 
57 OD 0012E PUSHL ; 
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DIRECTORY verb dispatch and misc routines Jo~3e0= 1386 90:38:38 oe Bliss-32 V4.0-742 Page 29 
exch$dire_put (desc, cancel _ctrl_o) 14-Sep-1984 12:29: EXCHNG.SRCJEXCDIRE.B32;1 (11) 
948 1 SL oon ROUTINE exch$dire_put (desc : $ref_bblock, cancel_ctrl_o) : NOVALUE = ZSBTTL ‘exch$dire_put (desc, | 
O18 § ‘se | 
0914 : 
Bai2 FUNCTIONAL DESCRIPTION: 
O37 Put a single record to the output Listing file | 
0919 ' INPUTS: 
0920 : 
0921 : desc - a string descriptor for the record 
88 ¢ } cancel_ctrl_o = flag describing whether to cancel control o (optional) | 
0924 gi IMPLICIT INPUTS: | 
$358 : dire - directory work area | 
0927 : 
0928 ' OUTPUTS: 
0929 ‘ 
0930 2! none 
0931 2! 
093¢ 3 | IMPLICIT OUTPUTS: | 
093 : 
0934 ‘ none 
0935 : 
0936 ! ROUTINE VALUE: 
0937 ' 
0938 2! true if put succeeded, false if not 
0939 2! 
0940 ! SIDE EFFECTS: 
0941 : ; 
094 ! error conditions will be signaled 
0945 2 !-- 
0944 
0945 $dbgtrc_prefix (‘dire_put> '); 
0946 
0947 2 BUILTIN 
094 ACTUALCOUNT 
0949 3 
0950 | 
0951 LOCAL 
9424 status 
095 3 
0954 
0955 BIND 
0926 dire = exch$a_gbl Coxcose ire_work] : Sref_bblock, ! Pointer to work area 
095 fab = dire (dire$a_outfab : $ref_bblock, ! Pointer to fab for output file 
boe5 rab = dire [dire$a_outrab : Sref_bblock ! Pointer to rab for output file | 
° | 
0960 | 
961 F , 
266 Sblock_check (2, .dire, dire, 422); 
se Copy the record size and address to the RAB 
96 rab rabu_rsz] = .desc pdscéu_ length); 
096 rab Crab$l_rbf] = .desc dsc$a_pointerd; 


12 | 
DIRECTORY verb dispatch and misc rout ines 15-50-1984 90:38:38 ee Oi hegeze V4.0-742 Page 30 


ERCHBDIRE 
v04-0 exch$dire_put (desc, cancel_ctril_o 4 EXCHNG.SRCJEXCDIRE.832;1 (11). 


HR BBB sex ane ott tor contrat | 
; ! Se e or control o 
; 884 0370 : 
: 885 971 IF ACTUALCOUNT () EQL 2 
: BBS te 5. ea Crenie.seul Letrt | 
: rab Crab$v_cco] = .cancel_ctrl_o; 
; 888 0974 
; 889 0975 ' Now write the record 
; 890 +44 ! 
; $3) O37 IF NOT (status = $put (rab = .rab)) | 
; 638 0379 exch$util_file_error (Ssevere_stat_copy (exch$_writeerr), .status, .fab, .rab Crab$l_stvJ); | 
; 895 0981 rab Crab$v_cco] = false; ! Force it off 
; 896 O3es 
; 897 098 RETURN; 
; 898 0984 1 END; 
~EXTRN SYSS$PUT 
003c 00000 -ENTRY EXCHSDIRE_PUT, Save R2,R3,R4,R5 ; 0911 
53 00000000G_ EF 0c Ci 00002 ADDL3 ay5° GAGHSA GBL, R3 3; 0956 
55 63 20 C1 OO00A ADDL3 #32, (R3), RS 3; 0957 
54 63 24 C1 0000 ADDLS #36, (R3), R4 : 0958 
52 O024400FE 8F 0 0001 MOVL #38011134. R2 3; 0962 
51 0O1A6 BF C 0001 MOVZWL oats R1 3 
50 63 00 QOOIE MOVL (R35), RO 3 
000000006 EF 16 90021 JSB EXCHS$UTIL_BLOCK_CHECK ; 
26 64 00 00027 MOVL (R4), R2 ; 0966 
5 04 AC DO QO02A MOVL DESC, RO 3 
22. =A2 60 B0 000 MOVW (RO), 34(R2) : 
28 «Ad 04 AO D0 000 MOVL 4(ROS, 40(R2) > 0967 
02 6C 91 000 CMPB (AP), #2 3; 0971 
07 12 QO03A BNEQ 1$ 3 
O07 A2 01 07 08 as FO 000 INSV CANCEL_CTRL_O, #7, #1, 7(R2) ; 0973 
52 DD 00043 1$: PUSHL R2 ; 0977 
00000000G 00 2 Fe 9 CALLS #1, SYSSPUT 3 
1C 0 € 004C BLBS STATUS, 2$ 3 
oc Ag DD OO004F PUSHL 12(R2) ; 0979 
65 DD 00052 PUSHL (R5) ; 
50 DD 00054 PUSHL eh 3 
50 00F810D0 F 2 826 MOVL #16257232, STATUS2 3 
50 03 00 4 F D INSV #4, #0, #3, STATUS2 ; | 
0 DD 6 062 PUSHL STATUS ; 
00000000G_ EF ee FB 00064 CALLS 44 vias 7( + | ectnecmanaat F 
07 A2 80 BF BA 00068 2$: BICB2 #128, 7(R2) : 0981 
4 000 ; 0984 


; Routine Size: 113 bytes, Routine Base: EXCHSDIRE_CODE + 0500 
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EXCHSDIRE DIRECTORY verb dispatch and misc ti 16-Sep-1984 00:48: AX-11 Bliss-32 V4.0-742 
EEA ver patch and m routines 4 ep 3 90:38:38 


dire_rtli_directory 14-Sep-1 EXCHNG.SRCJEXCDIRE.B32;1 


3 300 985 1 GLOBAL ROUTINE dire_rtll_directory (volb : $ref_bblock) = ZSBTTL ‘dire_rt11_directory' 
; 901 9 $ BEGIN 

: 3S 38 5 i 

; 204 $89 | FUNCTIONAL DESCRIPTION: 

: 30 991 | Traverse the directory and display the contents 

; 908 995 | INPUTS: 

; 39 34d | volb = pointer to volb which has been connected to the RT-11 device 

: gle 0997 | IMPLICIT INPUTS: 

; a 34.44 ! dire - directory work area 

: 916 1001 2 | OUTPUTS: 

; 917 1008 ! 

: 3i9 1004 3 i sos 

: 920 1005 2 ! IMPLICIT OUTPUTS: 

: 921 1006 ! 

: 958 1008 3 | a 

; 924 1009 i ROUTINE VALUE: 

: 926 1011 3 true if valid, false if not 

: 928 1918 2 | SIDE EFFECTS: 

: 386 1015 § i error conditions will be signaled 

BBE 

: 933 1018 § $dbgtrc_prefix (‘dire_rtll_directory> '); 

: ORs 1020 3 LOCAL 

: 936 1021 2 ent : $ref_bblock, ' a pointer to the current Sirestery entry 
: 937 1066 2 nam : $ref~ _bblock, ' a pointer to the namb 

; oee i367 3 ets $ref_bblock, ' a pointer to an RT-11 content block 

5 940 1025 blocks_displayed, 

: 941 1026 blocks_avail, 

: 94 1027 large_avail, 

; 94 1028 filess “displa ed, ‘ 

3 944 1029 faop : $Sref_ block, ! pointer to an fao output 

3; 945 1030 status, 

; 946 1031 flags 

3: 947 1036 3 

: 348 i982 BIND 

: 950 1035 dire = exch$a_gbl Cexcg$a_dire_work] $ref_vblock, ! pointer to work area 

; «951 1936 fab = dire airesa. out fab 5} : Sref _bblock,” : pointer to fab for output file 
; 9 103 rab = dire (dire$a_o Ms : $ref_bblock, i pointer to rab for output file 
3 ear Ht 3 rtv = volb Cvolb$a_ vie specific] : $ref=bblock i pointer to rt-11 specific lnforastion 


Page 43} 


EXC 
VO4 
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EXCHSDIRE DIRECTORY verb dispatch and misc routines 16-Sep-1984 00:48: AX-11 Bliss-32 V4.0-742 Page 32) Ex¢ 
Ose 000 dire_rtll_directory 12=808-1 382 993388 LEXCHNG SRe EXCDIRE.B32;1 (135 v04 
; 928 1040 $Sblock_check (2, .dire, dire, 423); ! Check that the directory work area is valid :] 
; 9 1041 $block check (2, .volb, volb, 424); ' Check the input parameter to make sure it is a volb >) 
; 328 ! r $Sblock_check (2, .rtv, til, 450); ! And make sure it is an rt-11 volb | : : 
: 960 L 1044 2 SIF switch_check ! If checking is on look at all the nambs | : 1 
: 961 1048 3 STHEN . 1 
; 96 1966 nam = .volb yg (bFe nome head]; ! Get the address of the first namb chained to the volb : 1 
; 96 104 Slogic.check (2, (.fam NEQ 0), 109); $] 
: 964 1048 WHICE Tnam NEQ 6 27 
; 965 1049 DO a. 
; 966 1050 BEGIN 3 7 
; 967 192) Sblock_ check (2, .mam, namb, 425); -3 
; 968 1 26 nam = <nam Lnamb$a_nextJ; -. 
: 969 105 ; eS 
; 970 1054 xF I > 
: 971 1055 ‘7 
3 ar 1928 1 Determine the width of a directory item : : 
: 974 1058 wid = rtlictx$s_exp_fullname + rtiictx$s_exp_protected; ! "Pp '* and name are always there $7 
; 975 1059 § IF .dire Cdire$v_q_size] ! Is /SIZE present? i. 
: 976 1060 2 THEN 33 
: 977 1061 wid = .wid + (IF .dire Cdire$v_q_octal] THEN 7 ELSE 5); 21 
: 978 1066 IF .dire Cdire$v_q_date] ! or /DATE? 3 
; 979 106 THEN : : 1 
: 980 1064 wid = .wid + 12; 3 1 
; 981 1065 2 IF .dire Cdire$v_q_blocks] ! or /BLOCKS? 37 
: 982 1066 THEN 31 
; «983 1067 wid = .wid + (IF .dire Cdire$v_q octal] THEN 7 ELSE 6); 3 7 
: yee 1068 dire Cdire$l_item_width] = .wid; ! Put the value in the work area : | 
3 one en : exch$dire_get_columns (); ! Fetch the number of columns : \ 
; 988 1076 : ! Print the header information 3 1 
; 989 1073 2! 3 7 
: 990 1074 2 exch$dire_put (null_string):; ' Print a blank Line : . 3 
; 991 1075 2 faop = exch$util_fao_ buffer (ZASCID ‘Directory of RT-11 volume !AF [ae 6 ! Format the header Line zy 
; 338 1076 2 ~VOLB Cvolb$l_vol_ident_len], volb Cvolb$t_vol_ident], 0); : | 
: 99 1077 2 feop Cdsc$w_length] = .faop Cdsc$w_length] - 6; ! Remove the seconds field from the date-tim 31 
: 994 1078 § exch$dire_put (.faop); ! Print the header Line 31 
; WS 1079 IF .volb Cvolb$v_virtual] ! If virtual, then give the file name too 3 1 
; 996 1080 THEN 3 1 
; 997 1081 BEGIN 3 7 
; 998 nee BIND 31 
; .999 108 nam = .volb Cvolb$a_nam] : S$bblock; e ! RMS nam block for the open | | 
: 1000 1084 faop = exch$util_fao_buffer (ZASCID ' using !AF’, ! Format the header Line 3 1 
; 1001 1085 -nam Cnam$b_rsl), .nam Cnam$l_rsa]); : S 3 1 
3 1006 1938 exch$dire_put (.faop); ! Print the header Line 3 1 
: 100 108 3 3 1 
3; 1004 1088 IF .dire Cdire$v_q_owner] 3 1 
: 1005 1089 THEN 3] 
3 1006 1090 BEGIN g 1 
3 1007 1091 faop = exch$util_fao_buffer ( 3 1 
: 1008 1 % ZASCID ‘Volume ID: !AF_ Volume Owner: !AF System ID: !AF*, |! FAO string | 3 | 
: 1009 109 rtl1$s_volume_id, rtv Crtli$t_volume_idj, ' Volume id string 3 1 
: 1010 1094 rtl1$s_owner_name, rtv_ (rt11$€_owner_namel, ' Owner name string 3 | 
3; 1011 1095 re} tgs syeten, (6. rtv Creli$t_system_id]); ' System id string 3 1 
; 1012 1096 exch$dire_put (.faop); ' Print the id Line 3 1 
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oc- 


PUSS OR OP UTI BS BS BS BB EE EWI nnunonons 


| 


<m 


EXCHNG.SRCJEXCDIRE.832;1 


enctlhe ite out (null string); ! And print another blank li) 
If we are deing a summary, call the summary routine | 
IF .dire Cdire$v_q_summary] 

RETURN dire_rtll_summary (.volb); 
Initialize the local variables 
status = true; ! Assume that we will find some files 
lLarge_avail = 0; 
files_displayed = 0; 
Purchase an RT11 context block 

exch$util_rtlictx_allocate (.volb, 0); 

Loop through all the segments in the directory 


o 
7 
Pe 

" 


9s = rtnxt$m_permanent OR rtnxt$m_empty OR rtnxt$m_tentative OR rtnxt$m_unknown OR rtnxt$m_skip_check; 
E (Cent = exch$rtacp_next_entry (l.ctx, .flags)) NEQ 0) 


BEGIN 
Print this file if that is what is called for 
CASE .ent Crtllent$v_type] FROM 0 TO rtllent$m_typ_end_segment OF 


I 


ore 


Crtllent$m_typ_tentative, rtlilent$m_typ_empty] : 
BEGIN / . 
blocks_avail = .blocks_avail + .ent Crtilent$w_blocks]; ! Update our statistics 
i gent Crtllent$w_blocks] GTRU .large_avail 
large_avail = .ent Crtllent$w_blocks); 
IF .dire Cdire$v_q_deleted) ! For /DELETED we display whatever 
oe ! 6 filename is in the entry 


Oe Crtlictx$l_exp_fullname_len] EQL 1 ! If we have a namelen of 1, 


' 
it is the period alone. 


Re Be Se Se Ge Se Se ee SH Se BH Se Se Ge Se Se Se Ge Se Fe Se Se Se Be ee Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se ee Se Se ee tease te Setseeas 


BEGIN these with ‘< noname >"’. 

ctx Crtlictx$l oxe.ful Lnage_lend = 10; 

at (10, UPLIT"BYTE ("<"noname >'S, ctx Crtlictx$t_exp_fullname)); 
dire_rtll_put_item (.ctx);. ! print the it 
files_displayed = .files displayed + 1; 
blockS_displayed = .blocks_displayed + .ent [rtllent$w_blocks); 


END 


em . 
! update trailer statistics 
| 
J 


— 
el ee a ee ed dd a a dd ex 


a ah 


0 ee ee oe ee 
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EXCHSDIRE DIRECTORY verb dispatch and misc routines 16-Sep-1984 00:48: AX-11 Bliss-32 V4.0-742 Page 34. 
F0s7000 dire rtll_directory 12280871382 1 35:08 EXCANG.SRCTEXCDIRE .B3251 ' a 
; 1070 1138 5 
; 1071 1155 4 ELSE IF .dire Cdire$v_q_free] OR .dire Cdire$v_q_allJ : For /FREE or /ALL we List 
: 1076 1128 4 THEN ! file as ‘< unused >"’. 
: 107 11 BEGIN 
3; 1074 1128 ctx C(rtlictx$l_exp_fullname_len] = 10; 
; 1075 1159 CHSMOVE (10, UPLIT"BYTE ('<"unused >'S, ctx Crtelictx$t_exp_fullname)); 
; 1976 1160 dire_rtli_put_item (.ctx); 
3; 107 1161 files_displayed = .files_ displayed + 1; ! update trailer statistics 
; 1078 1398 blockS_displayed = .blocks_displayed + .ent ([rtllent$w_blocksJ; 
; 1079 11635 4 END; 
ce a 
: 108 116 Crtilent$m_typ_permanent) : 
: 1088 i167 4 BEGIN | 
: 1084 1168 4 : 
; 1085 1169 6 IF ((NOT .dire Cdire$v_q_free]) ! Don’t print permanent file 
; 1086 1170 5 AN ! if we've seen /FREE or /D 
; 1087 1171 5 (NOT .dire Cdire$v_q_deleted])) 
; 1088 1126 q THEN 
; 1089 1173 5 BEGIN 
; 1090 1174 5 
3; 1091 1175 «5 nam = .volb Cvolb$a_namb_head]; ! Get first namb 
: 1092 1176 5 WHILE .mam NEQ 0 ! and loop through them ail 
; 1093 1177 5 0 
3 1094 1178 6 BEGIN 
3; 1095 1179 6 BIND ! Need the name and type fro 
3; 1096 1180 6 nam_nam = nam pes, : $desc_block, ! command input because we 
: 1097 1181 6 nam_typ = nam [namb$q_type] : $desc_block; ! to compare this name agai 
; 1098 1186 6 ! any selections in the com 
: 1099 1183 6 IF exch$cmd_match_ filename 
: 1100 1184 6 (.ctx CrtTictx$l_exp_fullname_len), ctx Crtiictx$t_exp_fullname] 
: 1101 1185 6 -nam_nam Cdsc$w_Cength] + .nam_typ Cdsc$w_length], .nam_nam Cdsc$a_pointerJ) 
; 1106 1186 6 THEN 
3; 110 1187 7 BEGIN 
3: 1104 1188 7 qire_rt}l put. ites (.ctx);. P 
3; 1105 1189 7 files_displayed = .files displayed + 1; } update trailer statistics 
3: 1106 1190 7 blockS_displayed = .blocks_displayed + .ent (Crtllent$w_blocksJ; 
3 1107 1191 7 EXITLOOP; 
3; 1108 1336 6 END; } : 
: 1109 1195 6 nam = .nam Cnamb$a_next); ! to next namb in chain 
: 1110 1194 5 H 
3 1111 1195 4 END; 
3 111g 1196 END; 
3; 191 1197 
3 1114 1198 CINRANGE, OUTRANGE) : 
me Ha , 
: ie 153) TES; 
3 1119 1508 ! Leave the loop if control/c has been hit 
3; 1120 1204 : | 
3 is! 1692 IF .exch$a_gbl Cexcg$v_control_c] 
; 1138 1 09 EXITLOOP; 
Sh ey 
: 1126 1210 2! If we aborted, make the signal 


ame 


7 


ECTORY verb dispatch and misc routines 19-Sep-1984 90:38:38 AX-11 Blis exe v4.0 2, 


-74 
_ftli_directory EXCHNG.SRCJEXCDIRE.B32 
' 
if -gexchSa_gol Cexcg$v_control_c] 
Sexch_signal (Sinfo_stat_copy (exch$_canceled)) 
Otherwise, finish the directory 


ELSE 
BEGIN 


3 -dire Cdire$l_cur_column] NEQ 0 ! If anything is waiting, print it 
dire_rtil_put_item (0); 
If we printed some items, then add an extra blank Line 
If .dire Cdire$v_items_printed] 
exch$dire_put (null_string, true) ! Cancel CTRL/O with second parm 
Nothing was printed, return a warning status so that command procedures can see whether files were fou. 


LSE 
status = Sinfo_stat_copy (rms$_fnf); ! Let a guy see that $ EXC DIR CS1:DEFBOO.CMD didn't work 
Print the statistics line 
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soup = exch$util_fao buffer (.faop, .files_displayed, .blocks_displayed, .blocks_avail, .large_avail); 
exc $dire_put (.faop); 


Free up the context block. 
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exch$util_rtlictx_release (.ctx); 
RETURN .status; 
ND; 
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EXCHSDIRE DIRECTORY verb dispatch and misc routines 16-Sep-1984 748: AX-11 Bliss-32 V4.0-742 Page 
fsc000 dire _rtli_direct ory aaa 99:38:08 EXCHNG.SR ROVE EXCDIRE.B32;1 > a 
04 AE 50 0 001 OVL RO, FAOP ; 3 
04 AF DD 001 PUSHL FAOP + 1096 : 
FE31 = CF 01 FB 001 CALLS #1, EXCHSDIRE_PUT 3 : 
0000" CF 9F O015E 11$ PUSHAB N + 1098 : 
FERS CF 1 FB 16 CALLS EXCHSDIRE 1 T : ; 
08 0 BE : E1 0016 BBC *1, a0(SP), + 1102 : 
DO 0016¢ PUSHL + 1104 : 
0000v CF 1 FB O16 CALLS #1, DIRE_RT11_SUMMARY : ; 
08 AE % 0174 12$: CLRQ FILES_DISPLAYED t+ 1112 ; 
14 AE 01 7D 00177 MOVQ #1, STATUS : 1108 ; 
10 AE D4 00178 CLRL LARGE LAVAIL : 1111 ; 
ze D4 0017E €LRL + 1116 ; 
57 DD 00180 PUSHL ; : 
000000006 Ef iy FB 0182 CALLS » EXCHSUTIL_RT11CTX_ALLOCATE : : 
6 dO 001 MOVL R CTX : : 
1c AE 1F 00 0018C¢ MOVL @# FLAGS + 1120 F 
1¢ «AE ODD 0190 13$: | PUSHL FLAGS + 1121 ; 
56 DD 0019 PUSHL (CTX : : 
000000006 _ EF 02 FB 00195 CALLS #2, EXCHSRTACP_NEXT ENTRY : ; 
58 50 b0 0019¢ MOVL RO, ENT : ; 
03 2 OOl9r BNEG =-:14§ ; : 
00C6 31 OO1A1 BRW 26$ : ; 
01 «AB 04 00 EF O01A4 14$ EXTZV #0 Whe SCENT), -(SP) > 1127 ; 
08 00 BE CF OO1AA CASEL  (SP)+ 8 ; : 
0014 0014 00B2 OO1AE 15$: WORD Sal yee : : 
00B2 00B2 0062 001B6 16$-15$.- : : 
00B2 001BE 16$-15$,- ; : 
g3$-158.- : ; 
2$-15$,- : : 
5$-15$.- : : 
5$-15$,- : : 
5$-15$,- ; : 
25$-15$ ; ° 
4C 11 001C0 BRB eis : : 
59 08 AS 3C 001C2 16$:  MOVZWL 8 (ENT), RO + 1133 ; 
18 AE 59 CO 001C6 ADDL2 R9, BLOCKS_AVAIL ; : 
10 AE 59 D1 OO1CA CMPL  R9. LARGE_AVAIL + 1134 : 
04 18 OOIcE BLEGU 178 ; : 
10 AE 59 00 001D OVL § R9, LARGE_AVAIL : 1136 : 
13 00 BE 04 €1.001D4 178: BBC 4° a0(SPY, 18$ > 1138 : 
01 46 A6 D1 00109 CMPL = 70¢CTX), Af : 1142 : 
1 12 00100 BNEQ 20 ; : 
46 AG A p 1D MOVL #10. 70(CTX) : 1145 : 
54 M6 0000' CF A 1E MOVC3 #10. P.ABP, 84(CTX) > 1146 ; 
14 11 OO1EA BRB 208 > 1149 ; 
04 00 BE 05 E 1EC 18%: BBS #5, aO(SP), 19$ > 1155 : 
68 00 BE E9 OO1F1 BLBC ©=._-«a@O SP), 25$ ; ; 
46 AG A 00 1F3 19$:  MOVL #0, 76(CTX) : 1158 : 
54 Ab 0000" CF A 1F MOVC3 #10. P.ABQ, 84(CTX) > 1159 : 
6 DD 20$ PUSHL (CTX : 1160 3 
0000v CF 01 F CALLS #1, DIRE_RT11_PUT_ITEM F ; 
08 Ar D INCL PALES DISPL > 1161 : 
Oc AE 2 f A ADDL2 9, BCOCKS_DISPLAYED : 11$¢ 3 
48 BE g th 88595 S28; Bre 3s a0(SP), 25$ : 1186 : 
46 88 BE 82 34 1 BBS #4; ad(SP). $3 : 1133 ; 
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i INPUTS: 


i OUTPUTS: 
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i ROUTINE VALUE: 
true if valid, false if not 
i SIDE EFFECTS: 
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14-Sep-1984 EXCHNG.SRCJEXCDIRE.B32;1 


1 Stat ROUTINE dire_rtll_summary (volb : Sref_bblock) = ZSBTTL ‘dire rt11_summary' 


i FUNCTIONAL DESCRIPTION: 
Display a summary of the directory 


volb - pointer to volb which has been connected to the RT-11 device 


i IMPLICIT INPUTS: 
dire - directory work area 


i IMPLICIT OUTPUTS: 


oo error conditions will be signaled 
2 

08 $dbgtrc_prefix (‘dire_rtll_summary> '); 

05 LOCAL : 

06 seg : $Sref_bblock, ! a pointer to the current directory segment 
207 ent : $ref_bblock, ! a pointer to the current directory entry 
208 ctx : $ref_bblock, ' a pointer to an RT=-11 context block 
209 seg_num 
$i9 faop : $ref_bblock, ! pointer to an fao output 

S, 
$i§ max_ent, ' entries per segment for summary 
$1 empt_cnt, ' count of empty entries 

14 perm_cnt, ' count of permanent entries 
215 unkn_cnt, ' count of unknown entries 
216 empt_tot, ' total count of empty entries | 
217 perm_tot, ' total count of permanent entries 
$18 unkn_tot ! total count of unknown entries 
$$ 

21 BIND 
$5$ dire = exch$ gpl Coxcete ire_work] : $ref_bblock, ! pointer to work area 

fab = dire (dire$a_outfab : $ref_bblock, ! pointer to fab for output file 
$ 44 rab = dire [dire$a_outrab : $Sref_bblock ! pointer to rab for output file 


Page 41 
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EXC! 
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EXCHSDIRE DIRECTORY verb dispatch and misc routines 16-Sep-1984 748: AX-11 Oi ist =-32 V4.0-742 Page 4 
v04-0 dire_rtll_summary : 14- 3e0 Oke 4 99:58:33 EXCHNG. SRCIE EXCDIRE.B32;1 
3: 1227 1309 ROUTINE seg_stat (num, perm, empt, unkn, maxe) : NOVALUE = 
: 1558 1310 $ BEGIN. 2 
: 1229 1311 LOCAL 
: 1250 1 \¢ faop : $Sref_bblock, ! pointer to an fao output 
: 1231 131 use; 
3 3 g 1314 
: 1 1315 4 faop = (IF .num EQ. 0 
3 1234 1316 4 TH 
; : 2 : i? ? ZASCID ' Total for all segments:' 
3 3 a 1319 xch$util_ ee buffer 1 rapa . Segment !2UL', .num)); 
$ 1385 } 31 exch$dire _put es faop, (.num EQL 0)) 
3 1240 1 § feop = enchOut fao buffer (ZASCID ' Permanent files: !4UL', .perm); 
; ise 1334 exch$dire_put (.Ffaop); 
: 1528 1 $e foup = ge i by fao_buffer (ZASCID ' Unused files: 'GUL', .empt); 
: 1s03 1326 exch$dire_put (.faop); 
3: 1245 1350 
3: 1246 1328 IF .unkn NEQ 0 
3: 1247 1362 THEN 
3: 1248 1330 4 
3: 1249 1331 4 12h = oncnOut it fao buffer (ZASCID ' Unknown entries: !4UL", .unkn); 
: 1250 1336 4 exc $dire_put (.faop); 
3 1251 1333 3 
3 1526 1334 ; 
: 125 1335 use = .perm + .empt + 
3 1254 1336 ; faop = exch$util_ fao “altar” (ZASCID ' Entries in use: !4UL Entries available: !UL', 
; 1255 1337 -use, .maxe - .use); 
: 1256 1338 exch$dire_put (.faop); 
3 1257 1339 
; 1258 1340 exch$dire_put (null_string); ! Print a blank Line 
3: 1259 it re 
; 1260 1 ri} RETURN; 
: 1261 13435 2 END; 
-PSECT EXCHSDIRE_PLIT,NOWRT,2 
66 20 6C 61 74 6F 54 20 20 20 20 20 20 $8 20 00254 P.ABW: .ASCII \ Total for all segments: \<0> : 
73 74 6€ 65 6D 67 65 73 20 6C 6C 61 20 3 ef 4 $3 3 
019 oO 8 74 P.ABV: .LONG 17694751 3 
00 . 78 -ADDRESS P.ABW 3 
74 6€ 65 6D 67 65 53 20 20 20 20 4! $8 O27C P.ABY: .ASCII Segment !2UL\ ; 
4C 2 21 0 SS ; 
4 68 4 3 P.ABX: .LONG 17694740 3 
0000000' 94 ADDRESS P.ABY 3 
30 20 20 20 20 20 $9 20 20 20 $8 $8 § $ 3 P.ACA: .ASCII Permanent files: '4\ ; 
4 6€ 65 6E 61 9 2 65 50 2 r 3 
4 21 20 3A 65 6C 6 6 8 : 
00 00 4C C ASCII ee 3 
4 98 A, 7) P.ABZ: LONG 3 
20 20 20 2 20 0 0 6 CC P.ACC: .ASCII Unused files: ‘aN 
a9 & 30 oe 6s 9% 95 be 8% 30 5H 50 50 O68 
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3 ish Bh Pace 
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a oe A 6 8 f hf. 3 if 
1000 A 6 P.ACD: 
80 G00 0" 00 6 
20 20 90 20 20 20 $f 39 30 ; Q 00334 P.ACG: 
69 72 7% & 0 0 4 
(ERR RRR HB i 
72 74 of 45 20 20 20 20 20 4 035C 
20 3A 65 6C 62 61 6C 69 61 76 61 00368 
8 Bi 
010€0045 Boack P.ACF: 
00000000° 00380 


AX-11 Bliss-32 V4.0-742 
EXCHNG. SRCJEXCDIRE.B32; 1 


4 12:35:08 


ASCII Wut \202<0> 
“Loe 17694762 
[ADDRESS P.ACC 
ASCII \ 


eASCII \ L502 <0 
«LONG 17694762 
-ADDRESS P.ACE 


eASCII \ Entries in use: 
eASCII \UL Entries available: !UL\<0><0> 
-ASC 


< 
CONG. 1904789 
-ADDRESS P.ACG 


~PSECT EXCHSDIRE_CODE ,NOWRT,2 


003C 00000 SEG_STAT: 


55 FC9O §=6CF «=9E ~=00002 
54 00000000G EF 9E 00007 
52 04 0000 
04 AC D5 0001 
98 12 00013 
2 06 00015 
53 0000" CF 9E 00017 
OD 11 0001C 
04 AC DD QOOIE 1$: 
0000" CF 9F 00021 
64 9¢ FB 00025 
53 0 00 00028 
26 DD 00028 2$: 
53 DD 00020 
65 02 FB Q002F 
08 ac pp 00 ¢ 
64 0000° CF +4 8 3 
SRE 
65 01 FB $044 
Oc, AC pd D044 
0000 F OF 47 
64 4 0048 
53 D sf 
DD 2 
65 01 F 3 
52 10 AC OD 6 
| A 
52 pd C 
0000" CF 9F Q005E 


«WORD Save R2,R3,R4,R5 

MOVAB EXCHSDIRE_PUT, RS 

MOVAB EXCHSUTIL-FAO_BUFFER, R4 
CLRL = RR 

TSTL NUM 

BNEQ = ‘1$ 

INCL  R2 

MOVAB P.ABV, FAOP 

BRB 2$ 

PUSHL NUM 

PUSHAB P.ABX 

CALLS #2, EXCHSUTIL_FAO_BUFFER 
OVL RO. FAOP 

PUSHL 

PUSHL FAOP 

CALLS #2, EXCHSDIRE_PUT 

PUSHL PERM 

PUSHAB P.ABZ 

CALLS #e, EXCHSUTIL_FAO_BUFFER 
MOVL RO. FAOP 

PUSHL FAOP 

CALLS #1, EXCHSDIRE_PUT 

PUSHL EMPT 

PUSHAB P.ACB 

CALLS ae, EXCHSUTIL_FAO_BUFFER 
MOVL RO. FAOP 

PUSHL FAOP 

CALLS #1, EXCHSDIRE_PUT 

MOVL NKN, R2 

BEQL 

PUSHL 


Re 
PUSHAB  P.ACD 


Unknown entries: ! 


BeBe Se Ge Ge Ge Fe Fe Ge Ge Ge Se Fe Ge Se Ge Fe Ge Be 


Se Se Se Se Se Se Se Se Se Ge Ge Se Be Se Ge Se Ge Se Ge Be Ge Se Se Se Se Se Se Se Se Se Se Se 


} 


J 13 
EXCHSDIRE DIRECTORY verb dispatch and misc routines 16-Sep-1984 AXx-11 i let =32 V4.0-742 Page a 
Tec000 dire_rtll_summary 4 14- =Sep- 1382 99: $8: 33 EXCHNG. SRC} EXCDIRE.B32;1 ° (15) 
$4 FB CALLS ne. EXCHSUTIL_FAO_BUFFER : 
3 D MOVL RO, FAOP : | 
DD PUSHL FAOP ; 1332, 
65 j FB A CALLS #1, EXCHS$DIRE_PUT ; 
50 08 AC oc ac C 3$: ADDL3 MPT, PERM, RO : 1335) 
5 C9 ADDL2 Re, USE ; 
7E 16 AC ¢ 7 SUBL3 USE, MAXE, -(SP) t 1337 
BD £8 PUSHL USE : 
0000" CF 9F D PUSHAB P,ACF t 1336 
64 FB 1 CALLS #3, EXCHSUTIL_FAO_BUF "EK : 
z D MOVL RO, FAOP ; 
DD 7 PUSHL FAOP : 1338 
65 1 FB 9 CALLS #1, EXCHS$DIRE_PUT ; 
0000' CF 9F 0008C PUSHAB NULL_STRING + 1340 
65 01 FB i CALLS #1, EXCHSDIRE_PUT : 
04 0009 RET t 1343 


; Routine Size: 148 bytes, Routine Base: EXCHSDIRE_CODE + O93A 


K 13 
CTORY verb dispatch and misc routines Jo~sen~ 1386 0 38:38 AX-11 Bliss-32 V4.0-742 Page 45 
14-Se 4 12:29: ) 


EXCNSDIRE DIRE 45 | 

v04-00 dire_rtll_summary -Sep-19 29:03 EXCHNG.SRCJEXCDIRE.B32;1 (16) | 
| 

> 1263 1344 ' Get a context block for the loo 

3 1500 1345 : . 

3 ; o2 : ‘$ ctx = exch$util_rtlictx_allocate (.volb, 0); 

> 1267 1348 ! Initialize the local variables 

1585 1386 3 1 1s ith the first di 

: seg_num = 1; ! Start with the first directory segment 

3 1270 1351 onpt ent = b: i 

; 1271 1 26 perm_cnt = 0; 

3 1 Le: 135 unkn_cnt = 0; 

: 127 1354 empt_tot = 0; 

: 1274 1355 perm_tot = 8: 

; 1275 1356 unkn_tot = 0; 

: 1579 1388 5 | Need into from th b 

; ! Need some info from the root segment, grab a pointer 

: 1578 1389 3 i Pilcher ts 

; 1279 1360 seg = exch$rt11_dirseg_get (.volb, 1); 

3 1380 130) Slogic_check (27 (.seg NEQ 0), 126); 

; 1s8e 1368 ; Print the header for the summary | 

3 1284 1365 § max_ent = (rt1l1$k_dirseglen - ! Maximum number of entries is the length of entire segment 

>: 1285 1366 ; rtilhdr$k_length - ' less the length of the segment header 

: 1286 1392 2) ' Less two bytes for the end-of-segment marker 

; 1287 1368 $ / ! Divided by 

3; 1288 1369 (rtllent$k_length + ! the length of an entry - the standard length 

: 1289 1370 § 329 Crtl1Adr$w_extra_bytes]); ' plus any extra hytes 

; 1290 1371 faop = exch$util_fao_buffer (ZASCID ' Directory segments allocated: gut Maximum files per segment: !4 

> 1291 1378 2 -seg [rtithdr$w_num segs], .max_ent); 

3 1292 1373 2 exch$dire_put (.faop); ! Print the header Tine : 

; 1293 1374 2 faop = exc $Sutil_fao_buffer (ZASCID ' Directory segments in use: !2UL Maximum files per volume: !4 

> 1294 1375 2 seg [rtlihdr$w_high_seg], .max_ent * .seg ([rtilhdr$w_num_se 

3 1295 1376 2 exch$dire_put (.faop); | ' Print the header Line ; 

3 1396 137 § exch$dire_put (null_string); ! and another blank Line 

; if 34 tt 2 ; Loop through all the segments in the directory 

; 1500 1381 ; eee = rtnxtSm_permanent OR rtnxt$m_empty OR rtnxtim_tentative OR rtnxt$m_unknown OR rtnxt$m_skip_check; 

: 1301 1386 WHILE (Cent = exch$rtacp_next_entry (.ctx, .flags)) NEQ 0) 

: 1308 138 DO 

; 130 1384 BEGIN 

3 1304 1385 

; 1305 1386 ! If we have been canceled, leave the loop 

: 1306 1387 : 

; 130 1388 IF .exch$a_gbl Cexcg$v_control_c] 

; 1308 1389 THEN 

; 1309 1390 EXITLOOP; 

; 1310 1391 : 

: fa 1336 Look for the split between segments 

3 1318 1394 IF .seg_num NEQ .ctx (rtiictx$l_seg_number] | 

3 1314 1395 THEN 

3 1315 1338 4 BEGIN 

; 1316 1397 4 seg_stat (.seg_num, .perm_cnt, .empt_icnt, .unkncnt, .max_ent); 

3 1317 1398 4 empt_cnt = 0; 

3; 1318 1399 4 perm_cnt = 0; 

; 1319 1400 4 unknicnt = 0; 


Be Oe BeBe Se Be Be Be Oe Oe Be SH Se Se Se BH Se Se Se Se Se Fe Se SH Se FH SH Oe Se Ge Se Se Se Ge Se Se Se Fe Se Se Se Se Se Se Se Se Se Se Se Fe Fe Se ae Se Se aease 


C 


24 


13 
ORY verb dispatch and misc routines 1beSe -1984 248: AX-11 Bliss-32 V4.0-742 P 4 
t11_summary “ 1e-8ep-19 4 00:58:33 YEXCHNG’ SRe EXCDIRE.B32;1 mr td 


<m 
Ra 
o 
i= 
ov 
oo 
o= 
ag 


segnum = .ctx Crtlictx$l_seg_number]; 
END; 


} Now print this file if that is what is called for 
CASE -ent C(rtilent$v_type] FROM 0 TO rtllent$m_typ_end_segment OF 


Sr | 


Crtilent$m_typ_tentative, rtllent$m_typ_empty] : 
BEGIN’ -typ_empty 


empt_cnt = .empt_cnt + 1; 
gagt..tet = .empt_tot + 1; 


Crtilent$mt ermanent] : 
BEGIN’ 


perm_cnt = .permicnt + 1; 
+ . 


te : -perm_tot 
ND; 


unkn cnt 
unkn_tot 


eunknicnt + 1; 
eunkn_tot + 1; 


ctmatnes’ en : | 


FESESESE 


If we have been canceled, print the message 


if pexchSe_gbl Cexcg$v_control_c] 
$Sexch_signal (Sinfo_stat_copy (exch$_canceled)) 


ELSE 
BEGIN 


} Print the stats for the last segment 


WWWAAAWA NAAN 
PAA 


seg_stat (.seg_num, .perm_cnt, .empt_cnt, .unkn_cnt, .max_ent); 


If we have more than one segment, print the grand total 


WN "OC DONOAUSWN—OOONOUL WI 


ROOD 


iF ,se9_num NEQ 1 ! Will be equal if we only have 1 segment 


55: 


a seg_stat (0, .perm_tot, .empt_tot, .unkn_tot, .max_ent * .seg (rt11hdr$w_num_segs]); 


Free up the context block. 


RO 
WnN—O0Oon 


exch$util_rtlictx_release (.ctx) 


a ee ee eel re ce el ce ee el el ee ee ee ce el ce el el el el el el el el el ce el el el cel el cel el cl ce cel cel el el el el el cel el cel cl ce 


| 
i 
: END; 
: 
: 
3 


Be Se Be Se Ge Se Se ee Fe Oe BH Ge SHG e SH Ss SH Se Se Se Be FF SESS Ge SF Ss SH Oe Oe SHEESH SE He SESE SESE Se Se Se Se Se eee Sees Se Beers 
ee ee ce me ee et ee DD ee ee ee ee ee ee ed ee ed od aed ed aed ed wd 


WAAw 
ANN 


RETURN true; 
END; 


Be Be Be Oe Be Be Oe Oe Oe Se Be Se Se Ss Se Se Se Ss Se SESH Se Be SHS Se Se Se Se Se Se Se Se SESH SESH SH we Se Oe Se Se Se Se Se Se Se Se Sets Se Se Sete seas 


413 | 
EXCHSDIRE DIRECTORY verb dispatch and misc routines 16-Sep-1984 748: AX-11 Bliss-32 V4.0-742 Page 47 
v0e-000 dire rtii_sunmary 10860-1984 19:39:08 ERXCHNG’SRETERCDIRE B52-1 anya v04 
.PSECT EXCHSDIRE_PLIT,NOWRT,2 | 
73 20 79 72 OF 74 63 65 72 69 44 20 20 20 20 00384 P.ACI: .ASCII \ Directory segmen : | | 3 
a ey oak ce SF é¢ i 26 i i ee é3 D é? é 3 y segments allocated: !2UL \ | 
65 6C 69 66 20 6D 75 6D 69 1 4D 20 20 2 O3AC -ASCII \ Maximum files per segment:!4UL\<0><0> : : 
21 3A 74 6E 65 6D 67 65 73 20 $) 65 70 20 g 0388 4 . : ; ; 
00 00 4¢C 55 34 O03CA : | : 
00 OO3CF «ASCII ro : F 
80000000" Gosp, ACHE LONG. 12688795 a 
73 20 79 7 F 74 63 65 7 9 44 20 20 0308 P.ACK: ASCII \ Directory segments in use: '2UL \ : : 
gs 93 38 $5 de 8S $3 58 $2 ge a8 38 an std Mats ; : 
gs gc go se 20 i $5 $5 8 Ol Sf $8 $8 $8 BEB sascat maximum Files por volumes 14U\CO><O> | ; 
° aximum es per volume: : ><U> 5 P 
21 20 3A 65 6D 75 6C 6F 76 20 72 65 70 20 $ 0040F , ; F 
00 00 4¢ 55 34 O04 iE : : 
00 004 eASCII <Q>_ : ; 
010E0049 00424 P.ACJ: <LONG 17694793 : 
00000000" 00428 “ADDRESS P.ACK ; 
.PSECT EXCHSDIRE_CODE,NOWRT,2 
OFFC 00000 .ENTRY DIRE_RT11_SUMMARY, Save R2,R3,R4,R5,R6,R7,.- 3 1253 
R8,R9,R10,R11 : 
SE 08 ¢2 00002 SUBL2 #8. SP : 
50 000000006 EF 0c C1 00005 ADDL3 #12, EXCHSA_GBL, RO : 1305 
7E 04 00000 CLRL = (SP) : 1346 
04 AC DD 0000F PUSHL VOLB ; 
000000006 _ EF 02 FB 00012 CALLS #2, EXCHSUTIL_RT11CTX_ALLOCATE : 
4 50 DO 00019 MOVL RO. CTX ; 
58 7C 0001C CLRQ PERM _CNT : 1352 
56 01 7D OO01E MOVQ #1, SEG_NUM : 1350 
6— 7C 00021 CLRQ =~ PERM_TOT : 1355 
5B D4 00023 CLRL _- UNKN~TOT : 1356 
01 oD 00025 PUSHL #1 : 1360 
04 AC DD 00027 PUSHL VOLB ; 
000000006 EF 02 FB 00 A CALLS #2, EXCHSRT11_DIRSEG_GET ; 
53 5 00 0031 MOVL RO. SEG : 
13 12 000 NEQ : 1361 
7E 7E 8F 9A 000 MOVZBL #126, -(SP) : 
91 DD 00 A PUSHL # : 
000000006 8F DD 000 PUSHL #EXCHS BADLOGIC : 
000000006 00 03 FB 0004 CALLS #3, LIBS$STOP : 
50 06 A3 3C 00049 1$: MOVZWL 6(SEG) + 1369 
50 0 C9 004D ADDL ¢ #4, R : 
52 000003F4 F 2 ¢ 9090 DIVLS RO, #1012, MAX_ENT ; 
dD 0005 PUSHL : 1372 
7E 63 3C 0005A MOVZWL (SEG), =(SP) : 
0000' CF 9F 0005p PUSHAB : 1371) 
000000006 EF FB 00061 CALLS #3, EXCHSUTIL_FAO_BUFFER : | 
5 D 68 MOVL RO. FAOP ; 
55 0D 00068 PUSHL FAOP : 1373 
FB90 ct 01 FB 9060 CALLS #1, EXCHSDIRE_PUT : 
A 63 3C 00072 MOVZWL (SEG), R10 > 1375 | 


N 13 
EXCHSDIRE DIRECTORY verb dispatch and misc routines 16-Sep-1984 :48: AX=-11 iss- .0- 
vrei Fira ox) pomere ‘ 1 =30P 71 38e 99:58:33 YEXCHNG’ SRE EXCD IRE BSos1 Page gb 
j 
SA 52 C4 0 z MULL2 MAX_ENT, R10 : ; 
A DD 0007 PUSHL : | : 
TE os HF ERR RRS BED. =180 ism! | 
000000006 Ef 3 FB O86 CALLS #3, EXCHSUTIL_FAO_BUFFER : ; 
g Q DO 000 MOVL RO, FAOP : ; 
DD 0008C PUSHL FAOP ; 1376 : 
FBOF CF 01 FB OOF CALLS #1, EXCHS$DIRE_PUT : | ; 
0000' CF 9F 9 PUSHAB NULL_STRING : 1377) : 
FB66 CF 61 FB 00097 CALLS #1, EXCH$DIRE_PUT : ; 
53 1F pO 0009C MOVL #31, FLAGS : 1381 ; 
i Bae | OME ELS agen 
000000006 EF 98 FB 000A3 CALLS #2, EXCHSRTACP_NEXT_ENTRY : ; 
5 0 00 OOOAA MOVL RO, ENT : : 
51 13 OOOAD BEQL 8$ : : 
51 000000006 FF E8 OOOAE BLBS § @EXCHSA_GBL, 9$ : 1388 : 
76 AG 56 D1 000B6 CMPL SEG_NUM, 118(CTX) + 1394 3 
15 13 OOOBA BEQL $ : : 
52 DD 000BC PUSHL MAX_ENT : 1397 ’ 
57 DD OOOBE PUSHL UNKA_CNT ; : 
0340 8F BB 000C0 PUSHR #*M<R6,R8,R9> : ; 
FEA3 CF 05 FB 000C4 CALLS #5, SEG STAT ; : 
58 7C 000C9 CLRO = PERM_CNT : 1399 ; 
57 p4 000CB CLRL _- UNKN~CNT t 1400 : 
56 76 A& DO 000CD MOVL 118(CTX), SEG_NUM + 1401 ’ 
50 01 «AS 04 00 EF 00001 3$ EXTZV #0, #4, 1(ENTY, RO + 1406 F 
08 00 50 CF 00007 CASEL RO, #0, ; : 
D WORD =4$,- : F 
0012 0018 0018 0012 000DB 4$ 5$-4$ 
0012 0012 0012 OO1F 000E 6$-4$.- ; : 
0012 000EB $$-68.~ F : 
7$-4$,- 3 3 
5$-4$,- : : 
5$-4$,- : | F 
5$-4$,- : 3 
5$-4$ : 3 
57 D6 OOOED 5S: INCL —_UNKN_CNT + 1423 : 
5B D6 OOOEF INCL  UNKN-TOT + 1424 ; 
AC 11 000F1 BRB 2$ + 1406 F 
59 06 O00F5 6$: INCL  EMPT_CNT > 1411 : 
04 AE 06 000F INCL EMPT“TOT + 1412 : 
AS 11 000F8 BRB 2$ + 1406 : 
58 D6 QOOFA 78: INCL  PERM_CNT $1417 | : 
6E 06 OO0FC INCL PERM=TOT + 1418 | : 
9F 11 OOOKE BRB 2$ : 1382) : 
17 000000006 FF €9 00100 8$: BLBC @EXCHSA_GBL, 10$ > 1431 : 
50 000000006 8F DO 00107 9$: MOVL #EXCHS CANCELED STATUS2 + 1433 3 
50 03 00 03 FO 0010 INSV #3, #07 #3, STATUS2 : ; 
0 oD 0011 PUSHL  STATU ; : 
000000006 00 2 FB aie CALLS nl, LIBSSIGNAL ; | : 
: DD 6 11— 10$: — PUSHL ENT ; 1440 : 
3 DD 001 PUSHL UNKA_CNT ; : 
0340 F BB 001 PUSHR #*M<R6,R8,R9> ; : 
FE41 «CF 05 FB 0126 CALLS #5, SEG_STAT : ; 
01 6 D1 00128 CMPL = SEG_NUM> #1 > 1444 | 


7 
14 | 


EXCHSDIRE RECTORY verb dispatch and misc routines -Sep~1984 AX-11 Bliss-32 V4.0-742 Page 49 
v04-0 dirs, rtil_summary 12-808: 38 99: 38; 33 EXCHNG.SRC EXtD! IRE.832;1 ¥ (16) 
1 13 001 BEQL 11 ; 
A 0D 1 PUSHL R1 3; 1446 
B DD Q01 PUSHL UNKN_TOT $ 
be AE DD 1 PUSHL EMPT_TOT ; 
C AE DD 1 PUSHL PERM_TOT : 
7E D4 QO13SA CLRL re ; 
FE2B «OCF 9 FB Q015C¢ CALLS #5, SEG_STAT : 
4 DD 104 11$ PUSHL CTX 3 1451 
000000006 EF 01 FB 14 CALLS #1, EXCHSUTIL_RT11CTX_RELEASE : 
0 01 DO O014A MOVL #1, RO 3: 1453 
04 0014D RET 3 1454 
; Routine Size: 334 bytes, Routine Base: EXCHSDIRE_CODE + O9CE 


EXCWSDIRE DIRECTORY verb dispatch and misc routines 
v04-00 dire_rtli_put_item 

; 1375 1455 1 GLOBAL ROUTINE dire_rt11_put_item (ctx 
; 1376 14 8 BEGIN 

: 1377 14 ++ 

; 1378 1458 : 

; 1379 1459 ! FUNCTIONAL DESCRIPTION: 

; 1380 1460 : 

; 1381 1461 : 

; 7 f: 1008 : 

; 138 146 ! INPUTS: 

3 1384 1464 : 

; 1385 1465 : 

: 1 $9 1498 ' 

; 138 146 ' IMPLICIT INPUTS: 

; 1388 1468 : 

; 1389 1469 ' dire - directory work area 

: 1390 1470 : 

; 1391 1471 § ! OUTPUTS: 

; 1336 are : 

; 139 1475 2! none 

; 1394 1474 2! 

: 1395 1475 2 ! IMPLICIT OUTPUTS: 

: 1396 1476 2! 

3; 1397 1477 2! none 

3; 1398 1478 § : 

3 1399 1479 ! ROUTINE VALUE: 

; 1400 1480 § : 

3; 1401 1481 ! true if put succeeded, false if 
: pe re qe! 

: 140 1483 2 ! SIDE EFFECTS: 

3 1404 1484 2! 

; 1405 1485 2! error conditions will be signal 
; 1406 1486 2 !-- 

3 1407 1487 2 

; 1408 1488 2 $dbgtrc_prefix (‘dire_rtll_put_item> ') 
; 1409 1489 2 

: 1410 1490 2 LOCAL 

3: 1411 1491 2 desc : VECTOR (C2, LONG), 

: 1412 1436 § status 

3 1413 149 ; 

7: 1414 1494 2 

3; 1415 1495 2 REGISTER 

: 1416 1496 2 wid 

3 1417 1497 2 ; 

; 1418 1498 

3 1419 1499 BIND 

: 1420 1500 dire = exch$a_gbl CoxcgSa_dire work 
3 1421 1501 buf = dire Cdire$t_list_buffer] : V 
; 1056 1286 H 

3 14 150 

; 16st 1208 : 

3: 1425 1505 $block_check (2, .dire, dire, 427); 

> 1426 1506 

3 1427 1507 ! Perform a couple of sanity checks 

: 1428 1508 } 

3: 1429 1509 $logic_check (2, (.dire Cdire$l_cur_col 
3 ks 1319 Slogic_check (2, (.dire Cdire$l_cur_wid 


1SSenctgpe 00:48:55 


: $ref_bblock) : NOVALUE = 


Ax-11 Oh lege 3e v4. 
EXCHNG.SRCJEXCDIRE 


RSBTTL ‘dir 


not 


ed 


! current Listing width 


J : $ref_bblock ! p 
ECTOR Cdire$s_list_buffer, BYTE] ! output bu 


um 


nd Lt ire bdirest q_columns 
th) L ire 


4 C¢ 
dire$l"list_widt 


a 


SSU .d 
SSU .d 


0-742 
-B32;1 


e_rtll_put_item’ 


Add a single item to the output Listing, writing the record if we hit the column count 


ctx = an RT11 directory entry context block, if address is zero, means write buffer. 


ointer to work area 
ffer 


CTORY verb dispatch and misc routines 18-Sep-1984 90:38:38 


_rtil_put_item 


4 


-Sep- 


} Perform required initializations 


id = .dire Cdire$T_cur_width); 
An input address of 0 means that we 


re Cdire$v_items_printed] = true; 


if (.ctx EQL 0) 
THEN 


BEGIN 
IF_.wid GTR 0 
THEN 


a 
@ 
Sd 
o 
wr 
-—oO 
ww 
un 
. 
—e 


c buf fo 
exchSdire_put (desc); 


dire Cdire$l_cur_column] = 0; 
dire Cdire$l_cur_width] = 0; 
oo true; 


Add the separator to the buffer 
if .dire Cdire$l_cur_column] NEQ 0 
THEN 


Pk el ak tel Dak al Sel Sk Sek Sel al al tal al at al, al ak et et et et et 
PADRAIG SB BPP EE PAW 
MEWN—OOONAOUESWN —"OODNOULSWN—ODOND 


AO 


BEGIN 
CHSFILL (2C * *, dire$k_item_spacing, buf C.wid]); 
oh, = .wid + direSk_item_spacing; 


We always add the protection and filename to the buffer 
CHSMOVE (12, ctx Crtllctx$t_exp_protected], buf C.wid)); 
wi id + 12; 


Add the file size if requested 
if .dire Cdire$v_q_size] 
THEN 


Fo? or or ot ot at ot et ot et et et te et et et et et 


NNN NNO OO 


FALAVLSSHNONS UWS Oo0 wo 


Be Se Se Se Se Oe Se Se Se Se Se Se Se Se Ge Ge Se Ge Fe Ge Ge Fe Se FH SH Se Ge BH Be Ge Se Ge GF Ge Gs Ge Se SH Se Ge Se Se Se Se Se Se Se Se Se Sees Seasestesee 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


BBB PME & HS PAW NIWIWNIRIIINININININININININ AWIWPINPINPINIPINIWANWNNI BE PPE 


BELLE 


ZASCID * '60w'; 


o 

7 

oe) 

“ 

- 

7 
“nu 


<2) 
a 
a 
£ 
~~ 
a 
nu 


5: 
ZASCID "!5uUL"; 


AX-11 Bliss-32 V4. 
EXCHNG.SRCJEXCDIRE 


oO 
ro 


<m 


! one or more items has been printed 
! a fast register for the current width 


should flush the buffer 


] 
i 


R 
r 
3 
4 
i 
74 
o? 
i 
78 
: 
‘ 
s 
84 
S? 
88 
89 
90 
4 
x 
94 
95 
96 


Dd 
d 


e_rtil_put_ite 


WAA.AI AAI AIR POP PIPINIPNINYDD 2 2 SS OOO o 
DEAN ODS APA RUN ODO NONE UN ODD NONE WU OORD RAR AW ODO MRR 


OS a dt td ot td et OO OOOOOOOOOVODO 


Pw ae a wale heal eal ea h eal wal eal val ealeal es esl esl al walsh sh sh sbesh ab uah al al al eal eal eal al ealeal eal eal wale. eles ee. leal ee oP oe oe oe oe oe oe oe oe 
Oo 
So 
MEN O OONO UE UN —O OONOUE WN Oo OO~N 


a a a te a aaa kk a ak a ak ad 2 od = as wd = = = = a = 2 2 La 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


PRE_APAQ_DPAAPAAAADA AAA ADAP ADP DPD PADD PaaS 
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14 
ECTORY verb dispatch and misc routines ihese -1984 00:48:35 AX-11 Bliss-32 V4.0-74 
j = 14 Haat 7 90:38:33 EXCHNG.SRC EKCDYRE BSos1 


; desc [0 


de ° buf C.wid) 


sc 11 : 

ten” (status = $fao (.ctrstr, 0, desc, .ctx (rtlictx$w_blocks])) 
Sexch_signal_stop (.status); 

wid = .wid + .addwid; 

END; 


Add the date if requested 


if_.dire Cdire$v_q_date] 
THEN 


BEGIN 
_— ihe Maule BYTE (* "), buf C.wid]); 
wid = .w ; 
CHSMOVE (rtlictx$s_exp_date, ctx Crtlictx$t_exp_date], buf C.wid]); 
wid = .wid + rtllctx$s_exp_date; 
END; 
Add the start block if requested 


if .dire Cdire$v_q_blocks] 
THEN 


addwid = 7; 
= ZASCID * !60w'; 


a 
a 
a 
c 
~ 
a 
“ou 


6; 
ZASCID ' !5UL'; 


ou 
° 
oe 
a 
a 
< 
ate 
a 
= 


EN 
desc Co} 
desc = ° : 

cea” (status = $fao (.ctrstr, 0, desc, .ctx Crelictx$l_start_block])) 


Sexch_signal_stop (.status); 
wid = .wid + .addwid; 
END; 
! Do we need to flush? 


if (dire Cdire$l_cur_column] = .dire Cdire$l_cur_column] + 1) GEQU .dire Cdire$l_q_columns) 
BEGIN 


grt £93 & atten, 


3 

; addwid, 
ctrstr; 

IF .dire Cdire$v_q_octal] 

3 THEN 

4 

4 

4 

4 

3 

4 

4 

4 

; 

| 


desc 


~M 


F 14 | 
EXCHSDIRE DIRECTORY verb dispatch and misc routines 16-Sep-1984 00:48: AX-11 iss- 4.0-74 | 
v04-000 dire rtll_put.iten’ 1465S aati 9935838 YENCHNG SRETEXCDIRE Bos1 Page 47) 
: 1546 16 § exch$dire_put (desc); 
; 1547 16 dire CdireSl_cur_column] = 0; 
3; 1548 1628 wid = 0; 
; 1549 1629 END; 
: 1550 1630 : 
; 1551 1631 dire Cdire$l_cur_width] = .wid; 
; 1226 16 ¢ 
3s 355 16 RETURN; 
; 1554 1634 1 END; 


~PSECT EXCHSDIRE_PLIT,NOWRT,2 


; 
| : 
00 00 00 57 4F 36 21 20 0042C P.ACM: .ASCII \_ !60W\<0><0><0> ; 
0100005 00434 P.ACL: <LONG 17694725 : | ; 
00900 0’ 00438 [ADDRESS P.AC : ; 
4c 55 1 0043C P.ACO: ASCII \!5UL\ ; : 
010€ 00 4 00440 P.ACN: <LONG 17694724 : : 
00000000" 00444 “ADDRESS P.ACO : ; 
20 00448 P.ACP: .ASCII \ \ : | ; 
00449 BLKB 3 ; 
00 00 00 57 4F 36 4 so 044C P.ACR: .ASCII \_ !60W\<0><0><0> 3 . 
010E0005 00454 P.ACQ: <LONG 17694725 : : 
00000000" 00458 ADDRESS P.ACR : ; 
00 00 00 4C 55 35 21 20 O045C P.ACT: ci... 2 4 a, \<0><0><0> $ 3 
010E0005 00464 P.ACS: .<LONG 17694725 : : 
00000000' 00468 “ADDRESS P.ACT F : 
-EXTRN SYSSFAO ‘ 
.PSECT EXCHSDIRE_CODE,NOWRT,2 : 
OFFC 00000 .ENTRY DIRE_RT11_PUT_ITEM, Save R2,R3,R4,R5,R6,R7,-; 1455 : 
R8,R9,R10,R11 s é 
SE 0c C2 00002 SUBL ig, P : F 
50 000000006 EF 0C C1 00005 ADDL3 #12, EXCHSA_GBL, RO : 1500 ; 
57 60 D0 00000 MOVL (ROS, R? : 1501 : 
59 44 AT i 00010 MOVAB 68 (R?) R9 : : 
52 024400FE BF p 00014 OVvL @ 8011134, R2 > 1505 ; 
51 01AB ef € 0001 MOVZWL #427, RI : ; 
50 7 00 000 OVL  R7, RO ; ; 
000000006 EF 16 000 JSB EXCHSUTIL_BLOCK_CHECK : ; 
of 40 A? 9 000 9 MOVAB 64(R7), (SP) ; 1509 | : 
28 OA 00 BE D1 00020 CMPL a0(SP); 40(R7) : 3 
13 «1F 900 2 BLSSU : | : 
7E 6E a 9a 000 MOVZBL #110, -(SP) ; : 
1 DD 00038 PUSHL # : ; 
000000006 BF DD 0003A PUSHL #EXCH$ BADLOGIC ; : 
o00000996 09 ; FB 00 9 CALLS # LIBSS TOP j : 
8 A 3c =O A?-s«é1s«00047 18: CMPL (r?), 56(R7) : 1510) : 
13. 1F 0004C BLSSU : | : 
7E 6F 8F 9A 00 4g MOVZBL #111, =(SP) : | ; 
1 DD 6 3 PUSHL #1 ; : 
000000006 8F DD 4 PUSHL #EXCH$ BADLOGIC : F 
000000906 99 3 £8 0005, CALLS #3, LIBSSTOP : | : 
0 A # 61 2% BISB2 #2. 48(R7) : 1514 | ; 
| 
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EXCHSDIRE_CODE + OBIC 


362 bytes, Routine Base: 


; Routine Size: 


; Compi 


14 
RECTORY verb erepaten and misc routines 1hede -1984 248: AX-11 Bliss-32 V4.0-742 
a 14 et 7 99:58:33 EXCHNG.SRCJEXCDIRE.B32;1 


04 re_rtil_put_ - 
556 END 
1557 8 Q d ELUDON 
-EXTRN LIBSSIGNAL, LIBSSTOP 
PSECT SUMMARY 
Name Bytes Attributes 
EXCHSDIRE_PLIT 1132 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
EXCHSDIRE_CODE 3206 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
ecoccece Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
.$255$DUA28: CSYSLIBILIB.L32;1 18619 103 0 1000 00:01.9 
~$255$DUA28: CEXCHNG. OBJ JEXCLIB.L32;1 1151 136 11 79 00:01.4 


Information: 2 
Warnings: 
Errors: 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:EXCDIRE/OBJ=OBJ$:EXCDIRE MSRC$:EXCDIRE/UPDATE=(ENHS$:EXCDIRE) 


; Size: 3206 code + 1132 data bytes 


Elapsed Time: af 17.6 
Lines/CPU Min: 1497 
Lexemes/CPU-Min: 20454 
peneey Used: 298 pages 
ation Complete 
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